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PERSONAL  COMPUTER  PROGRAM  FOR  CHEMICAL  HAZARD  PREDICTION  (D2PC) 


1.  SCOPE 

1.1  Objective. 

It  Is  the  object  of  this  report  to  document  a  personal  computer  pro¬ 
gram  that  will  provide  computational  assistance  In  estimating  chemical  downwind 
hazard  In  terms  of  peak  vapor  concentration  or  accumulated  dosage. 

1.2  Background. 

This  program  is  a  revision  of  program  D2*  which  was  documented  earlier. 1 
The  methodology  Is  based  on  DODESB  Technical  Paper  No.  10,  Change  3,  Methodology 
for  Chemical  Hazard  Prediction,  June  1980. 2 

1.3  Approach. 

The  program  Is  written  In  FORTRAN  77  for  an  IBM  compatible  personal 
computer.  It  Is  conversational,  employing  a  modified  form  of  menu  Input  with  a 
data  base  provided  for  standard  chemical  agents  and  munitions.  Estimates  of 
hazard  distance  are  made  for  either  the  expected  peak  concentration  of  vapor, 
the  dosage,  or  the  accumulated  dose  that  an  Individual  might  receive  at  that 
distance. 


2.  DESCRIPTION  OF  THE  PROGRAM 

2.1  Organization. 

The  program  Is  made  up  of  a  MASTER  and  12  subroutines.  It  Is  the 
function  of  the  MASTER  to  obtain  the  required  Information  from  the  user  by 
selecting  the  questions  to,  be  asked  for  a  given  problem.  The  data  that  Is  Input 
and  retrieved  from  the  tables  Is  then  organized  for  use  by  one  of  the  downwind 
distance  calculators  (DDS  or  CDS),  which  makes  the  estimate  of  distance  and 
returns  It  to  the  operator.  The  exchange  of  Information  between  subroutines  Is 
diagrammed  In  Figure  1. 


Figure  1.  Information  Exchange  Between  Subroutines 


^Whltacre,  C.G.,  and  Mylrskl,  M.M.  ARCSl-TR-82014.  Computer  Program  for  Chemical 
Hazard  Prediction  (D2).  September  1982.  UNCLASSIFIED  Report. 

2Techn1cal  Paper  No.  10.  Methodology  for  Chemical  Hazard  Predictions,  Department 
of  Defense  Explosives  Safety  Board,  March  1975.  UNCLASSIFIED  Report. 
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Selection  of  subroutine  DDS  or  CDS  Is  determined  by  the  choice  of 
dosage  or  concentration  as  the  exposure  Index  for  downwind  distance.  Subroutine 
DDS  is  supported  by  the  error  function,  ERF,  and  by  subroutine  HD42,  which  is 
called  when  an  explosive  release  of  HD  Is  requested.  Also  the  plume  rise 
subroutine,  PLRS,  may  be  called  by  DDS  or  CDS  if  a  rising  cloud  Is  to  be  traced 
with  distance. 

The  other  subroutines  support  the  MASTER.  Subroutine  EVAP  Is  called 
to  determine  the  airborne  source  when  the  release  Is  by  evaporation.  STAB  Is 
called  to  select  the  Pasqulll  stability  category  If  the  meteorological  obser¬ 
vations  are  Input.  When  release  Is  In  a  wooded  area,  subroutine  WOODS  Is 
called  to  select  the  special  diffusion  parameters  for  the  particular  type  of 
woods.  Subroutine  PLRS  may  be  called  by  MASTER  to  compute  the  rise  of  a 
heated  cloud  or  to  Initialize  for  the  call  from  DDS  or  CDS  as  explained  above. 

Subroutines  DEF  and  QLIST  work  with  MASTER  to  provide  variable  defini¬ 
tions  to  the  user  when  needed.  DEF  also  blocks  the  repetition  of  request  for 
the  same  Information  on  successive  runs. 

2.2  Operation. 

The  modified  menu  form  of  Input  was  developed  for  this  program  to 
accommodate  a  wide  range  of  user  applications  and  a  wide  range  of  experience 
In  the  user.  A  data  base  Is  provided  for  defined  storage  sites,  standard 
munitions,  and  agents.  The  appropriate  data  for  these  systems  Is  recovered  by 
selecting  the  site  and  system  from  menus.  The  menus  also  Include  a  nonstandard 
or  nondeflned  option  and,  when  these  are  used,  the  needed  data  Is  then  requested. 
This  approach  permits  the  full  power  of  the  models  to  be  drawn  out. 

The  format  of  the  questions  Is  selected  by  the  operator  to  match  his 
experience  level.  Four  levels  are  provided.  In  the  most  lengthy  form,  all 
options  are  listed  and  defined  with  each  question.  In  the  shortest  form,  each 
question  Is  one  line,  and  the  operator  Is  expected  to  remember  the  options. 
However,  at  any  point,  the  listing  for  that  question  may  be  recalled  by  answering 
with  question  marks.  The  question  Is  then  repeated. 

For  all  numeric  Inputs,  the  units  are  specified  In  the  question;  these 
are  generally  metric.  Other  units  may  be  used  as  long  as  the  strange  units  are 
Identified  by  the  proper  code.  Again,  question  marks  (or  an  error)  will  cause 
these  codes  to  be  displayed  and  the  question  repeated. 

When  all  of  the  essential  questions  have  been  asked  for  a  given  run 
(execution  of  the  downwind  hazard  estimator),  the  questions  will  terminate  with 
the  request  "ALL  OTHER  INPUT."  At  this  point,  output  and  control  options  may 
be  entered.  The  options  may  be  displayed  as  tables  by  typing  TAB  and  the 
number  of  the  table.  The  tables  are  defined  as  follows: 

1.  Control  options 

2.  Assessment  options 

3.  Output  options 

4.  Alphabetic  listing  of  parameter  codes 

This  list  may  be  displayed  by  entering  three  question  marks  (???).  From  the  con¬ 
trol  options,  you  will  see  that  the  code  ALL  will  cause  the  program  to  continue 
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ill 
**  * 


and  execute.  When  execution  has  terminated,  the  program  will  return  to  the  ALL 
question  (ALL  OTHER  INPUT).  Here  you  may  change  options  and  reexecute,  restart, 
or  stop.  The  control  options  are  listed  In  Tables  1,  2,  and  3.  These  tables  may 
be  displayed  with  TAB  1,  TAB  2,  or  TAB  3  commands  as  described  above. 


Table  1.  Control  Options  Run  Control 

RST  Restart  at  question  1,  clear  Input  blocks 
RSN  Rescan  from  question  2 

ALL  Execute  downwind  calculation 
STP  Stop 

GTO  Go  to  entry  point  specified  (question  number) 

IRT  Return  to  specified  question 

INP  Clear  Input  block  for  specified  question 

HLD  Hold  variable  at  present  value 

RLS  Release  hold  of  variable 

TAB  Display  table 

DSP  Question  definition 

???  List  of  table  codes 


Table  2.  Assessment  Control 

Dosage  (default) 

Concentration  (mg/m3) 

Concentration  (ppm) 

Fumigation  concentration 

Do  not  use  2-mlnute  correction  with  GB  and  VX  vapor 
Use  2-mlnute  correction  with  GB  and  VX  vapor 
(default  value) 

No  effects,  no  deaths,  1  percent  lethality  (default) 
No  deaths,  1  percent  lethality 
1  percent  lethality 
Without  vapor  depletion  (default) 

With  vapor  depletion 


Table  3.  Output  Control 

List  only  Input  variable 

List  variable  and  options 

List  variable  and  options  with  definitions 

Output  short  heading  and  Interpolated  distance  only 

(default) 

Include  diffusion  parameters  and  D  versus  X 

Above  plus  components  of  D 

Crosswind  width  of  cloud  with  distance 

Use  HT  max  from  PLRS 

List  f(x);  use  HT  max 

Use  HT  •  f(x) 

List  f(x) ;  use  HT  ■  f(x) 


mm 


w 


Wfmw 


The  ALL  question  may  also  be  used  to  Input  new  parameter  values  directly 
For  example,  If  you  had  made  an  estimate  of  the  hazard  distance  for  a  wind  speed 
of  1  m/sec,  you  could  obtain  an  estimate  for  5  m/sec  by  typing  the  following: 

WNC  5. 

ALL 

The  program  will  rescan  the  question  list,  display  the  current  value 
of  each  parameter,  and  stop  again  at  the  ALL  question  for  further  Instruction, 

The  code  ALL  will  then  cause  It  to  execute  for  5  m/sec  and  display  the  new  esti¬ 
mate.  If  multiple  parameter  changes  are  required,  these  are  made  as  separate 
entries  (giving  the  code  and  the  value  for  each)  before  the  first  ALL  response. 

The  stop  for  the  second  ALL  permits  the  user  to  review  the  parameter  values 
before  the  next  execution.  Of  course,  more  changes  can  be  made  then,  but  the 
program  may  rescan  again  and  stop  again. 

The  program's  decision  to  rescan  after  entries  in  the  ALL  question  Is 
based  on  the  changes  that  the  new  parameter  value  might  make  in  the  input  ques¬ 
tions  and  the  data  retrieval  from  the  data  base.  It  Is  Important  to  realize 
that  this  retrieval  Is  repeated  with  each  rescan.  Thus,  a  parameter  value 
that  may  have  been  entered  as  different  from  the  data  base  would  normally  be 
changed  back  to  the  data  base  value  on  rescan.  This  change  can  be  avoided  If  a 
hold  Is  placed  on  the  specific  parameter.  This  Is  done  by  the  command  code  HLD 
and  the  parameter  code.  As  an  example, 


HLD  HML 


will  prevent  the  height  of  the  mixing  layer,  HML,  from  being  changed  by  rescan. 
Of  course,  this  Is  not  needed  unless  a  nonstandard  value  has  been  entered.  The 
hold  Is  released  with  the  command  RLS  and  the  parameter  code.  The  HLD  command 
may  be  stated  for  any  parameter,  but  It  is  only  useful  for  those  variables 
that  may  be  changed  by  rescan.  The  following  Is  the  list  of  variables  with 
which  HLD  Is  effective. 


Code 


VARIABLES  USED  WITH  HLD 
Variable 


FMW 

HML 

MNR 

NCI 

NDI 

PMM 

QQQ 

SXS 

SYS 

szs 

2MC 


Molecular  weight 
Height  of  the  mixing  layer 
Minimum  response  level 

Concentrations  of  Interest  (see  Section  4.4) 
Dosages  of  interest 
Atmospheric  pressure 
Source  strength 


Source  sigmas 

Two-minute  correction  control 


The  control  and  parameter  codes  that  can  be  entered  through  the  ALL 
questions  are  given  In  Table  4.  These  may  be  displayed  by  the  program  with 
TAB  4.  Here  the  display  Is  in  four  pages  and  progresses  to  the  next  page  each 
time  the  return  key  Is  pressed. 
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is: 


Table  4.  Options  For  the  ALL  Question 


Code 


Input  Variable 


I 


Agent,  see  Section  3.6  or  DSP  6 
Control  word,  execute  program 
Slope  of  the  s 1 gma-y  versus  x  curve 
Area  of  puddle 
Bolling  point 
Breathing  rate 

Slope  of  the  slgma-z  versus  x  curve 
Cloud  cover 
Cloud  height 
Cloud  radius 

Change  In  x  (first  cycle) 

Display  question  definition 

Diameter  of  stack 

Molecular  volume 

Molecular  weight 

Slope  of  the  frost  wind  profile 

Control.  Go  to  specified  question 

Height  of  the  mixing  layer 

Hold  value  of  symbol 

Heat  released 

Local  standard  military  time 
Height  of  stack 
Height  of  source 
Number  of  the  day 

Method  of  assessment  control ,  see  TAB  2 
Number  of  the  month 

Control.  Clear  Input  block  for  question 
Control,  Return  to  specified  question 
Length  of  puddle,  downwind 
Location,  see  Section  3.2  or  DSP  2 
Minimum  response  level  ,  see  TAB  2 
Munition,  see  Section  3.5  or  DSP  5 
Number  of  concentrations  of  interest 
Number  of  dosages  of  interest 
Number  of  munitions 
Novice  level 

Number  of  source  intervals 
Output  for  stack,  see  TAB  3 
Output  control ,  see  TAB  3 
Atmospheric  pressure 
Airborne  source 
Relative  density  of  effluent 
Reflection  coefficient  (default  *  1) 

Method  of  release,  see  Section  3.8  or  DSP  8 

Release  hold  of  symbol  value 

Rescan  from  question  2 

Control.  Restart 

Season,  see  Section  3.3  or  DSP  3 

Skin  factor  for  subject  clothing 
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(m2) 

6K) 

1/mln) 

(1/10) 

(ft) 

(m) 

(m) 

(m) 

(cm^/gm  mole) 
(gm/mole) 


(m) 

(cal) 

(hr) 

(m) 

Cm) 


(m) 


(mm  hg) 

(mg) 


Code 


Input  Variable 


SLA 

SLO 

SMH 

STB 

SUN 

SUR 

SEV 

SXS 

SYR 

SYS 

SZR 

SZS 

TAB 

TEV 

TIM 

TMC 

TMP 

TST 

VAP 

VST 

UND 

MOO 

ZZO 

2MC 


Latitude 

Longitude 

Sam  pi  1 ng  height 

Stability,  see  Section  3.9  or  DSP  9 

Sun  elevation  angle 

Surface  type,  see  Section  3.17  or  DSP  17 

Settling  velocity  of  cloud  centroid  (default-0) 

Source  sigma  x 

Reference  sigma  y  at  100  m 

Source  sigma  y 

Reference  sigma  z  at  100  m 

Source  sigma  z 

Table  display 

Time  of  evaporation 

Time  after  functioning  (INS,  HD) 

Time  to  met  change 
Temperature 
Temperature  of  stack 
Vapor  pressure 

Velocity  of  effluent  from  stack 
Transport  wind  speed 
Moods  type,  see  Section  3.36  or  DSP  36 
Roughness  length 

Two-minute  corrections  control,  see  TAB  2 
Display  list  of  tables 


(°) 

(°) 


(°) 

(m/sec) 

(■) 

M 

(m) 

(m) 

(m) 

(min) 

(min 


(mm  Hg) 
m/sec) 
(m/sec) 

(m) 


Mhen  the  program  rescans,  It  repeats  the  same  logic  string  that  was 
followed  In  selecting  the  Initial  questions.  The  original  questions  are  relisted 
along  with  the  current  value  of  the  parameter,  but  the  program  does  not  stop 
for  Input  unless  a  new  question  Is  needed.  It  will  then  type  the  word  "INPUT" 
and  stop.  All  calculations  done  to  establish  initial  data,  such  as  the  selection 
of  the  stability  class  or  the  amount  evaporating  from  a  puddle,  will  also  be 
recomputed  and  relisted.  The  format  of  this  listing  will  be  discussed  In 
Section  4.8. 


3.  INPUT 

3 . 1  Question  1,  INPUT;  NOVICE  LEVEL  3,  2,  1,  or  0  NOV . 

This  question  Is  answered  by  a  single  digit.  Digit  2  will  cause  the 
program  to  list  the  possible  options  and  a  one-line  definition  for  each  Input 
variable.  Digit  1  will  supply  a  one-line  list  of  options  for  the  multiple 
choice  questions,  and  digit  0  lists  only  the  questions.  The  digit  3  will  list 
the  options  and  definitions  as  described  for  2,  but  will  begin  by  displaying 
two  pages  of  general  information  about  the  operation  of  the  program.  The 
novice  level  may  be  changed  by  a  return  to  question  1  (RST)  o^  by  assigning  a 
new  value  to  NOV  in  the  ALL  statement. 
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yestlon  2,  LOCATION 


LOC. 


This  question  Is  answered  by  a  three-character  code  that  Identifies 
one  of  the  U.S.  chemical  storage  sites  or  by  "NDF"  If  some  other  location  is 
being  considered.  I*  a  listed  site  is  specified,  the  location,  average  pressure, 
and  height  of  mixing  layer  are  recovered  from  the  data  base.  When  the  location 
is  not  defined  by  this  list,  these  parameters  are  requested  as  required.  The 
following  is  a  list  of  the  option  codes. 


LOC  Code  Location 


AAD 

DPG 

EWA 

JHI 

LBG 

NAP 

PBA 

PAD 

RHA 

UAD 

EUR 

NDF 


Anniston  Army  Depot 

Dugway  Proving  Ground  and  Tooele  Army  Depot 
Edgewood  Area,  Aberdeen  Proving  Ground 
Johnston  Island 

Lexington-Blue  Grass  Army  Depot 

Newport  Ammunition  Plant 

Pine  Bluff  Arsenal 

Pueblo  Army  Depot 

Rocky  Mountain  Arsenal 

Umatilla  Army  Depot 

USAEUR 

Not  defined 


3.3  Question  3,  SEASON  SEA. 

When  this  question  Is  asked,  a  three-letter  code  must  be  specified  to 
select  one  of  the  four  seasons.  The  season  Is  used  to  select  the  height  of 
the  mixing  layer  for  the  listed  storage  sites.  (This  question  Is  not  asked 
when  the  location  Is  listed  as  NDF.)  The  following  Is  the  list  of  season  codes. 

SEA  Code  Season 


WIN 

Winter 

SPR 

Spring 

SUM 

Summer 

FAL 

Fall 

3.4  Question  4,  HEIGHT  OF  THE  MIXING  LAYER  HML. 

This  question  is  asked  to  obtain  the  height  of  the  mixing  layer  when 
it  is  not  defined  by  the  location  and  season.  If  a  different  height  is  to  be 
specified  for  a  standard  location,  this  is  done  by  declaring  the  new  value  In 
the  ALL  question  (Section  3.15). 

3 . 5  Question  5,  MUNITION  TYPE  MUN. 

Selection  from  10  standard  chemical  rounds  may  be  made  or  "NON"  may 
be  specified  for  other  Items.  For  the  standard  item,  fill  weight,  agent  type, 
and  source  dimensions  are  recovered.  For  this  entry,  any  three  characters  may 
be  entered  and  will  be  carried  through  to  output.  Data  is  available  only  on 
the  following  items: 


MUN  Code 

MUN 

105 

105-mm  Cartridge,  1 

M60,  M360 

155 

155-mm  Projectile, 

MHO,  Ml 2 1  Al 

8IN 

8-1nch  Projectile, 

M426 

500 

500-lb  Bomb,  MK94 

750 

750-lb  Bomb,  MC-1 

M55 

115-mm  Rocket,  M55 

525 

525-lb  Bomb,  MK116 

139 

Bomblet,  Ml 39 

M23 

Land  Mine,  M23 

4.? 

4.2  Inch  Cartridge 

,  M2A1 

NON 

Nonmunition 

3.6  Question  6.  AGENT  TYPE  AGN. 

The  agent  type  requires  a  two-character  code  and  again  will  pass  any 
two  characters  through  to  output.  The  physical  constants  are  stored  for  the 
substances  listed  below.  Dosage  values  estimating  1  percent  lethality,  no  deaths, 
and  no  effects  are  retrieved  for  all  of  these  substances  except  JJDMH.  The 
values  for  1  percent  lethality  were  taken  from  DODESB  TP  No.  10.2  The  no  deaths 
and  no  effects  are  best  current  estimates  based  primarily  on  ORG  40. 3  The 
following  Is  a  list  of  the  agent  codes: 


AGN  Code 

Agent 

AGN  Code 

Agent 

GA 

Tabun 

HI 

HN-1,  Nitrogen  mustard 

GB 

Sarin 

H3 

HN-3 ,  Nitrogen  mustard 

GD 

Soman 

HT 

60X  HD  and  40X  T 

GF 

EA  1212 

LL 

Lewisite 

VX 

EA  1701 

AC 

Hydrogen  cyanide 

BZ 

Incap  agent 

CG 

Phosgene 

HY 

Hydrazine 

CK 

Cyanogen  chloride 
;  '  mslte 

UD 

UDMH 

DM 

HD 

Distilled  mustard 

NA 

Nonagent 

3.7 

Question  7,  SPILL  OR  AIRBORNE 

SOURCE 

QQQ- 

For  evaporative  release,  this  Is  the  amount  that  Is  initially  spilled. 
The  EVAP  program  takes  this  as  Q  and  then  computes  Q'  ,  which  Is  the  amount  that 
becomes  airborne.  For  other  forms  of  release,  this  Is  the  total  amount  that  Is 
airborne  over  the  release  period.  The  exception  Is  continuous  release,  which  Is 
explained  In  the  next  section  (3,8). 


3Solomon,  Irving  _et  al .  ORG  Report  40.  Methods  of  Estimating  Hazard  Distances 
from  Accidents  Involving  Chemical  Agent.  Operations  Researh  Group,  Edgewood 
Arsenal ,  Maryland.  February  1970.  CONFIDENTIAL  Report. 
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3.8  Question  8.  RELEASE  TYPE  REL. 

The  code  for  release  type  mast  be  selected  from  the  list  given  below. 


REL  Code 


i 


Type  of  Release  (REL) 


INS 

EVP 

SEN 

VAR 

STK 

STJ 

FL$ 

FIR 

16L 

EVS 


Instantaneous  (explosion) 

Evaporation  from  a  puddle  formed  by  a  spill 
Semlcontlnuous.  Constant  for  a  finite  time. 

Variable.  The  source  Is  defined  as  a  number  of  release 

Intervals,  each  constant  for  a  finite  time  (maximum  of  6). 

Release  of  heated  effluent  from  a  stack 

Release  from  a  stack  when  Inertial  or  Jet  effect  dominates 

Flash  fire  from  ground  level 

Fire  burning  for  finite  time 

IGL  fire  for  M55  with  GB  or  VX 

Still  air  evaporation  (see  Section  4.10) 


When  the  distance  Is  to  be  based  on  peak  concentration,  a  time  of  Infinity 
(1.E36)  may  be  specified  for  the  semlcontlnuous  release,  which  converts  this 
Into  a  continuous  release.  In  this  event  the  Input,  Q,  Is  now  the  rate  of 
release  In  mg/mln. 


3.9  Question  9,  STABILITY  TYPE  STB. 

This  Is  a  single-character  Input,  The  Pasqulll  categories  are  Iden¬ 
tified  as  A  through  F;  the  U  option  will  cause  the  program  to  request  the 
diffusion  parameters;  S  will  select  the  Pasqulll  category  from  additional  data; 
and  U  will  select  from  a  table  of  diffusion  rates  for  different  types  of  woods. 
The  logic  of  the  stability  selection  and  the  table  of  woods  parameters  are 
given  In  Appendix  A. 

STB  Code 

A  unstable' 

B 
C 
D 
E 

F  stable 

U 

S 

W 


Atmospheric  Stability  (Pasqulll)  (STB) 


Pasqulll  Stability  Categories 


Undefined.  Used  when  ALF,  SYR,  BTA,  SZR  are 
Input. 

Select  stability  from  meteorological  obser¬ 
vations 
Wooded  areas 


3.10  Question  10,  WIND  SPEED  (m/sec)  WND. 

The  transport  wind  speed  Is  entered  In  meters  per  second  as  indicated. 
Other  units,  such  as  knots  or  miles  per  hpur,  may  be  used  If  the  number  Is 
preceded  with  the  proper  two-character  code.  The  list  of  codes  may  be  displayed 
by  typing  two  question  marks. 
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When  the  WOODS  option  Is  specified  for  stability,  the  wind  speed  Is 
Input  for  a  height  of  10  meters.  The  speed  is  converted  by  the  program  to  the 
expected  below  canopy  rate.  In  order  to  enter  the  below  canopy  rate  directly, 
the  number  is  entered  as  negative. 

3.11  Question  11,  ALF,  SYR  (m) ,  BTA,  SZR  (m). 

The  diffusion  parameters  for  the  sigma  y  and  sigma  z  distributions 
are  requested  when  the  U  option  Is  specified  for  stability.  The  variable  ALF 
Is  the  slope  of  log  sigma  y  versus  log  distance,  and  3TA  is  the  slope  for  log 
sigma  z  versus  log  distance.  The  reference  values  SYR  and  SZR  are  taken  at 
100  meters. 

3.12  Question  12,  TEMPERATURE  taC). 

For  Instantaneous  release  of  HD  and  when  the  EVP  release  option  Is 
used,  question  12  Is  preceded  by  the  word  SURFACE.  This  Indicates  that  the 
temperature  specified  should  be  the  temperature  of  the  liquid  surface.  Other 
releases  that  request  temperature  employ  the  air  temperature.  (When  the  tem¬ 
perature  Is  not  requested,  the  number  printed  with  temperature  In  the  output 
summary  has  no  effect  on  the  prediction). 

3.13  Question  13,  Q  ()  (mg),  qT  ()  (min) _ NQI. 

Question  13  Is  provided  to  Input  source  time  Increments  (that  Is  the 
quantity  released  and  the  time  over  which  the  release  was  made.)  This  form  Is 
used  for  all  types  of  release  except  Instantaneous  and  evaporative.  For  semi- 
continuous  release  (SEM),  one  time  Interval  Is  Implied  and  does  not  have  to  be 
entered.  For  the  remaining  releases,  the  number  of  Intervals,  NQI,  Is  requested. 
From  one  to  six  Intervals  may  be  defined.  This  Is  followed  by  one  Q  and  TQ 
pair  for  each  (maximum  of  6).  The  quantity,  Q,  Is  the  amount  released  In  that 
Interval,  and  the  time  Is  cumulative  as  measured  from  the  beginning  of  the  first 
Interval. 

3.14  Question  14,  MOLECULAR  WEIGHT  FMW. 

If  the  substance  released  is  not  In  the  agent  list  given  above 
(Section  3.6)  and  the  molecular  weight  enters  into  the  calculation,  this  will 
be  requested  here. 

3.15  Question  15,  ALL  OTHER  INPUT. 

Although  not  otherwise  specified,  the  ALL  question  Is  15th  In  sequence. 
The  other  questions  are  numbered  so  that  the  operator  may  refer  to  a  specific 
question  with  control  statements.  These  statements  are  INP,  GTO,  and  IRT  as 
listed  In  Table  1  above.  The  GTO  option  will  Initiate  a  rescan  and  stop  for 
Input  at  the  question  specified.  Any  other  questions  defined  by  IMP  will  also 
stop  for  input.  The  IRT  option  is  like  GTO  except  that  It  Is  repeated  automati¬ 
cally  at  the  end  of  each  execution.  Once  set,  this  Is  cleared  by  setting  the 
question  to  zero  (IRT  0) . 


The  assessment  controls  IMA,  2MC,  MNR,  and  the  output,  OPO,  are  all 
set  to  default  values  as  Indicated  In  Table  2.  If  other  options  are  required. 


these  should  be  set  at  this  time.  Options  IMA »  NOV,  and  0P0  will  remain  as 
set  until  another  option  is  given.  Options  2MC  and  MNR  are  reset  to  the 
default  values  on  rescan  unless  a  hold  Is  placed  on  each  (HLD  2MC  or  HLD  MNR). 

The  command  DSP  with  a  question  number  win  display  the  options  and  definitions 
for  that  question. 

3.16  Question  16,  ATMOSPHERIC  PRESSURE  (mm  Hg)  PMM. 

The  atmospheric  pressure  Is  requested,  when  needed,  If  the  standard 
site  has  not  been  defined.  The  pressure  for  a  standard  site  may  be  changed  in 
the  ALL  question.  To  keep  this  value,  a  hold  should  be  placed  on  PMM  (HLD  PMM), 

3.17  Question  17,  SURFACE  CODE  SUR. 

Surface  codes  for  gravel  (GRA)  and  concrete  (NPR)  are  provided  that 
will  make  a  rough  estimate  of  the  puddle  size  that  would  be  formed  on  level 
terrain.  The  NDF  option  permits  the  wetted  area  to  be  Input. 

3.18  Question  18.  TIME  OF  EVAPORATION  (min)  TIM. 

This  Is  the  time  of  evaporation.  If  the  time  given  Is  greater  than 
the  time  required  for  total  evaporation,  the  time  Is  reset  by  the  program. 

3.19  Question  19,  AREA  OF  THE  WETTED  SURFACE  (sq  m)  ARE. 

If  the  surface  code  Is  given  as  NDF,  the  area  of  the  puddle  will  be 

requested. 

3.20  Question  20,  LENGTH  OF  SURFACE  DOWNWIND  (m)  LEN. 

This  is  the  estimated  fetch  of  the  vapor  over  the  wetted  surface  of 
the  puddle. 

3.21  Question  21,  FHW,  FMV,  VAP  (mm  Hg) ,  BPT  (deg  K) . 

If  the  physical  constants  are  not  available  In  the  data  base,  the 
molecular  weight,  molecular  volume,  vapor  pressure  (at  the  temperature  of 
Interest),  and  boiling  point  are  requested. 

3.22  Question  22,  TIME  AFTER  FUNCTIONING  TIM. 

This  question  Is  asked  only  for  explosive  release  of  HD  from  a  standard 
round.  The  time  Is  the  lapsed  time  from  functioning  to  the  time  the  cumulative 
dosage  Is  measured. 

3.23  Question  23,  OUTPUT  CODE  OPC. 

One  of  the  output  options  listed  under  OPC  In  Table  4  Is  entered 
here.  These  options  refer  only  to  the  output  when  the  plume  rise  options  STK 
and  STJ  are  specified.  These  options  control  what  Is  displayed  but  also  control 
whether  the  cloud  is  traced  with  distance  (f(x))  or  Is  assumed  to  rise  as  one 
step  above  the  stack. 
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3.24  Question  24.  HEIGHT  OF  STACK  (m)  HST. 

3.25  Question  25.  DIAMETER  OF  STACK  (m)  DST. 

3.26  Question  26,  TEMPERATURE  OF  STACK  (deg  C)  TST. 

3.27  Question  27.  VELOCITY  OF  EFFLUENT  (m/sec)  VST. 

3.28  Question  28.  RELATIVE  DENSITY  OF  EFFLUENT  RDE. 

3.29  Question  29.  FROST  PROFILE  EXPONENT  FRO. 

This  Ijs  the  log-log  slope  of  the  wind  profile. 

3.30  Question  30.  HEAT  RELEASED  (cal) _ HRL. 

3.31  Question  31.  CLOUD  RADIUS  (m)  CRD. 

3.32  Question  32.  STATION  LATITUDE  and  LONGITUDE  (deg)  SLA  and  SLO. 

3.33  Question  33.  MONTH,  DAY,  HOUR  IMM,  IDD,  and  HRS. 

The  first  three  letters  of  the  month,  the  day  as  two  digits,  and  the 
standard  military  time  as  four  digits  are  entered  here  (JAN, 01, 1200).  The 
output  of  the  month  will  be  displayed  as  a  numeric  (1-12)  and,  If  the  month  Is 
changed  In  the  ALL  statement,  It  Is  entered  as  a  numeric  ( IMM  4).  The  first 
time  the  S  option  Is  used  for  stability  the  program  will  request  the  year. 

This  Is  done  to  compute  the  vernal  equinox  for  the  year  specified. 

3.34  Question  34,  CLOUD  COVER  (1/10),  CLOUD  HEIGHT  (ft)  CCT  and  CHT. 

This  Is  the  number  of  tenths  of  coverage  (overcast  ■  10)  and  the  cloud 
height  In  feet. 

3.35  Question  35,  SUN  ELEVATION  ANGLE  (deg)  SUN. 

This  Is  entered  as  degrees  above  the  horizon. 

3.36  Question  36,  WOODS  TYPE  WOO. 

This  Is  entered  as  a  two-digit  code  as  defined  In  the  following  table: 


WOO  >  ow 

Deciduous,  winter 

MW 

Mixed ,  winter 
Coniferous  forest 

CF 

MS 

Mixed,  summer 

RF 

Rain  forest 

DISCUSSION 

Program  Input  Rescan, 

When  the  program  forms  Its  first  Input  string  of  questions,  It  may 
copy  data  on  munitions,  agents,  and  locations  from  tables  for  Input  to  the 


downwind  distance  calculator  (DOS  or  CDS).  Also  the  EVAP,  STAB,  or  WOODS 
subroutines  may  be  called  In  this  process.  Once  the  program  has  executed  and 
returned  to  "ALL  OTHER  INPUT"  {question  15),  all  of  these  values  are  retained 
and  the  same  problem  would  be  rerun  If 'the  word  ALL  Is  Input  again  at  this 
point. 


The  RST  option  will  reinitialize  the  program  and  establish  a  new  Input 
string  for  the  next  run.  However,  If  the  next  run  Is  similar  to  the  first,  the 
user  can  take  advantage  of  the  data  already  present  and  Input  only  the  changes. 
These  changes  can  Include  any  of  the  variables  listed  In  Table  4. 

Many  of  these  variables  will  affect  the  data  copied  from  the  tables 
in  the  first  scan  and  thus  a  rescan  of  the  Input  phase  Is  needed.  The  variables 
that  may  require  Input  rescan  are  listed  below. 


AQN 

DOW 

I  MM 

PMM 

SLO 

TIM 

ARE 

FMV 

INP 

QQQ 

STB 

TMP 

BPT 

FMW 

LOC 

REL 

SUN 

VAP 

CCT 

HRS 

MUM 

SEA 

SUR 

WND 

CHT 

IDD 

NMU 

SLA 

TEV 

WOO 

4.2  Rescan  and  the  HLD  Command, 

Although  the  automatic  table  look-up  feature  Is  designed  to  aid  the 
user,  there  are  conflicts  that  must  be  understood.  The  table  look-up  Is  repeated 
with  each  rescan.  Thus,  a  variable  value  can  be  stored  In  the  ALL  statement 
but,  If  the  combination  of  Inputs  causes  the  Input  rescan,  the  value  may  be 
overwritten  by  a  value  from  the  tables.  See  Section  2.2  and  3.15  for  further 
discussion. 

4.3  Concentration  Options. 

The  downwind  concentration,  CDS,  Is  selected  when  values  of  1,  2,  or 
3  are  assigned  to  IMA  In  the  ALL  question.  When  any  of  these  values  of  IMA  are 
Input,  a  message  (DEFINE  NCI)  will  be  printed.  This  Is  to  remind  the £er  that 
the  concentrations  of  Interest  must  be  specified  since  there  are  no  t«Blar 
values  for  concentration.  When  a  value  Is  assigned  to  NCI,  the  Instruction 
INPUT:  CI()S  will  be  printed.  The  values  of  Cl  should  be  In  ascending  order 
and  the  number  of  entries  must  agree  with  NCI.  If  NCI  Is  not  defined,  the  pro¬ 
gram  will  use  any  numbers  left  from  a  dosage  run  as  If  they  were  concentrations, 
or  the  program  will  return  to  ALL  as  explained  in  Section  4.4  If  no  dosage  has 
been  defined, 

When  concentration  Is  selected  by  setting  IMA  to  1,  2,  or  3,  the  pro¬ 
gram  automatically  places  a  hold  on  NCI  to  prevent  the  rescan  procedure  from 
overwriting  the  concentrations  of  Interest  with  the  tabular  dosages.  This  hold 
Is  released  when  IMA  Is  again  set  to  zero.  (A  hold  on  either  NDI  or  NCI  will 
bypass  the  table  lookup  for  dosages  of  Interest.) 

4.4  DEFINE  NDI  or  NC*. 

If  the  program  attempts  to  enter  the  downwind  distance  calculators 
(DOS  or  CDS)  without  a  defined  dosage  or  concentration  of  Interest,  the  demand 
DEFINE  NDI  or  DEFINE  NCI  Is  printed  and  control  returned  to  the  ALL  statement. 
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4.5  Multiple  Munitions. 

If  a  calculation  Is  being  made  for  two  or  more  munitions  functioning 
or  being  spilled  at  the  same  location,  the  source  strength  can  be  increased  In 
unit  multiples  by  assigning  a  number  to  NMD  In  the  ALL  statement.  This  approach, 
of  course,  assumes  that  all  munitions  are  the  same  and  that  agent  Is  released 
In  the  same  manner.  Thus,  the  scenario  for  a  pallet  of  MSS  rockets  will  still 
require  two  runs,  one  for  the  munitions  that  function  and  one  for  those  that 
leak.  However,  the  number  of  munitions  In  each  release  may  be  entered  directly 
as  NMU.  Although  NMU  Is  displayed  as  an  Integer,  the  value  may  be  entered  as  a 
real  number  or  fraction.  In  this  manner,  adjustments  may  be  made  for  partial 
spills  or  partial  releases.  When  there  Is  no  fractional  part,  NMU  is  displayed 
In  the  header  as  an  Integer.  When  there  Is  a  fractional  part,  the  header  will 
list  numbers  less  than  10  and  greater  than  ,009  with  two  decimal  digits. 

4.6  Wind  Speed  In  Woods. 

The  meteorological  parameters  given  In  DODESB  TP  No.  10  for  wooded 
areas  Indicate  a  reference  wind  speed  outside  the  woods  as  well  as  the  transport 
wind  within  the  woods.  The  program  is  designed  to  convert  from  reference 
(outside)  to  transport  (Inside)  so  that  the  normal  Input  would  be  the  reference 
wind  speed.  However,  provisions  are  made  to  enter  the  transport  speed  directly 
If  this  Is  known.  This  signal  to  the  program  is  to  specify  the  wind  speed  as 
negative.  Thus,  If  you  wish  to  specify  the  In-woods  wind  speed,  enter  the 
number  as  negative. 

4.7  Units  Conversion. 

Subroutine  UNT  permits  the  conversion  of  units  for  many  of  the  vari¬ 
ables.  The  system  Is  designed  to  be  Invisible  to  the  user  who  enters  the  con¬ 
ventional  metric  units  requested.  When  "strange"  units  are  used,  the  first  two 
characters  of  the  space  that  would  normally  be  numeric  are  replaced  with  two 
alpha  characters  that  Identify  the  Input,  This  system  Is  operable  on  all  Input 
questions  that  contain  only  one  numeric  variable.  The  units  that  may  be  con¬ 
verted  and  the  two  character  codes  that  will  Initiate  this  change  are  given  In 
the  following  table; 

UNIT  CODES 


ATM  - 

AT 

SQ  FT  -  SF 

LB  -  LB 

MB  - 

MB 

GAL  - 

GL 

BAR  - 

BR 

GM  «  GM 

M  ■  MT 

OZ  - 

OZ 

L  • 

LT 

CM  - 

CM 

HR  <*  HR 

M/MIN  -  PM 

SEC  » 

SC 

ML  - 

ML 

DEG  F  - 

DF 

IN  *  IN 

C  M/MIN  «  M3 

TON(L)  - 

TL 

PT  « 

PT 

FT  - 

FT 

KT  -  KT 

MI/HR  -  MH 

TON  ■ 

TN 

QT  - 

QT 

It  should  be  noted  that  the  questions  In  which  the  units  can  be  converted 
Include  question  15  (the  ALL  question).  Thus,  the  variables  that  appear  In  the 
"multi-numeric"  questions,  which  cannot  be  converted  directly,  may  still  be 
converted  In  the  ALL  question  by  reentering  the  variable  name,  a  space  or  comma, 
the  two-character  conversion  code,  and  the  numeric  value  In  the  "strange"  units, 


Whenever  the  units  conversion  function  Is  employed,  the  program  will 
list  the  Input  units,  the  output  units,  and  the  converted  numeric  value.  If 


meters  are  Input  as  the  conversion  code  (MT),  this  will  be  converted  to  feet. 

The  only  place  where  this  conversion  Is  appropriate  would  be  In  the  conversion 

of  cloud  height,  If  It  were  known  In  meters.  There  Is  no  Internal  check  to 

assure  that  the  conversion  Is  appropriate  for  the  variable.  It  Is  thus  the 
responsibility  of  the  user  to  assure  that  the  final  units  agree  with  the  Input 

requested.  Conversion  errors  may  be  corrected  by  repeating  the  Input  In  the 

ALL  question. 

If  question  marks  are  entered  for  the  conversion  code  or  an  undefined 
code  Is  used,  the  units  code  table  given  above  will  be  listed.  The  program 
will  then  repeat  the  Input  question.  For  the  ALL  question,  no  variable  name 
Is  listed  but  control  remains  In  the  ALL  loop  so  that  the  variable  may  be  re¬ 
entered  on  the  next  cycle. 

The  last  five  unit  codes  (Gal,  I,  ml,  pt,  qt)  are  measures  of  volume. 
These  are  converted  to  weights  by  using  the  density  of  the  substances.  The 
densities  are  stored  for  the  17  substances  In  the  agent  list.  For  other  sub¬ 
stances  the  program  will  request  the  density. 

4 . 8  Calculations  During  Input . 

When  the  EVP  option  of  release  Is  used,  the  EVAP3  subroutine  Is  called 
during  Input  to  compute  the  airborne  source.  Each  time  this  subroutine  Is 
executed,  two  lines  are  output  to  summarize  the  results.  The  surface  code  Is 
listed  and  then  values  of  the  following: 

EVP  Evaporation  rate  from  puddle  (mg/mln-sq  m) 

AREA  Area  of  puddle  (sq  m) 

VPR  Vapor  pressure  of  liquid  (mm  Hg) 

Q  Initial  quantity  spll led  (mg) 

Q'  Airborne  source  (mg) 

TEV  Time  of  evaporation  (min) 


One  line  Is  output  each  time  the  stability  selector  Is  called.  The 
computed  values  are  as  follows: 

SR  Sunrise  (standard  military  time) 

SS  Sunset 

AE  Elevation  angle  of  sun  above  the  horizon  (deg) 

STAB  Stabll Ity  category 

4.9  Igloo  Fires. 

Subroutine  IGL  has  been  added  to  D2PC  programs  released  after  June  1986. 
This  subroutine  contains  the  unit-weighting  factors  for  the  Igloo  fire  scenario 
for  the  M55  containing  either  GB  or  VX.  The  subroutine  is  called  by  specifying 
the  method  of  release  as  IGL.  The  number  of  rounds  is  specified  with  NMU  In 
the  ALL  statement.  The  program  will  display  the  three  release  intervals  employed 
for  GB  and  the  single  Interval  used  with  VX. 


4.10 


Still  Air  Evaporation. 


In  program  02  and  In  the  early  version  of  D2PC,  the  still  air  evapo¬ 
ration  option  could  be  called  only  by  specifying  a  small  wind  speed.  In  the 
version  released  after  June  1986,  a  release  option,  El/S,  has  been  added  to 
treat  a  spill  within  an  enclosure  where  tho  vapor  would  then  escape  to  the 
outside.  When  EVS  Is  specified,  the  still  air  model  Is  used  to  determine  the 
amount  that  evaporates  within  the  enclosure,  but  the  wind  speed  specified  by 
the  user  Is  then  used  to  compute  the  downwind  travel  and  dosage.  This  avoids 
having  to  run  the  program  first  as  an  evaporation  source  with  a  small  wind 
speed  to  determine  the  source  and  then  again,  as  a  semlcontlnuous  source  with 
the  outside  wind  speed  to  determine  the  transport. 


5.  ERROR  MESSAGES 


Most  of  the  error  messages  are  self  explanatory.  A  few  refer  back  to 
the  methodology  and  some  additional  comments  are  given  below. 

CON  NOT  DEF  FOR  INS  VX  HD  -  Concentration  not  defined  for  Instanta¬ 
neous  release  of  VX  or  This'  message  Is  produced  when  the  concentration 
model  is  requested  (IMA  >  1)  with  Instantaneous  release  of  VX  or  HD  from  a 
munition.  The  models  for  this  combination  that  are  contained  In  the  program 
are  designed  for  dose  or  dosage  only.  Concentrations  can  be  computed  by  pro¬ 
viding  the  amount  airborne  and  specifying  a  nonmunition  (NON). 

DEFINE  HML  -  Define  the  height  of  the  mixing  layer.  This  message 
occurs  when  the  table  look-up  has  not  defined  a  value  for  HML. 
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DEFINE  NCI  •  A  reminder  that  the  number  of  concentrations  of  Interest 
must  be  deTTnecT 

DEFINE  NDI  -  A  reminder  that  the  number  of  dosages  of  Interest  must  be 

defined 


DEFINE  NQ I  -  A  reminder  that  Q  is  changed  by  defining  NQI 

DHJ  NOTE:  UNSTABLE  MET  CONDITIONS  -  Jet  plume  note:  Unstable  meteo¬ 
rological  condltlohs'i  This  a  reminder  that  the  jet  plume  model  proposed  by 
Brlggs-Thomas  Is  limited  to  stable  and  neutral  conditions. 


the  wind  spee 


DHS  NOTE:  VS/UZ  LT  4  -  Jet  plume  note:  The  stack  velocity  divided  by 
n«ari  la«e  +k»n  A  j^e  model  Is  derived  for  greater  than  4. 


pHH/DHB/DHBT  Note:  STK  TMP  LESS  THAN  AIR  TMP  -  Note  for  Holland, 
Briggs,  and'  Brlggs-Thomas  pi ume  model s :  Stack  temperature  Is  less  than  air 
temperature.  A  reminder  that  the  models  are  derived  for  a  positive  difference 
(Tf  “  Ta). 

FUMIGATION  -  A  reminder  that  the  fumigation  equation  has  been  used 
(Equation  66,  Appendix  A).  It  should  be  noted  that  the  distance  computed  by 
this  model  Is  not  the  distance  from  the  Initial  source  but  the  distance  from 
the  cloud  at  the  time  the  ground  level  Inversion  breaks  up. 
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HEIGHT  DEFINED  FOR  STABLE  CONDITIONS  ONLY  -  A  reminder  that  the  model 
applies  only  for  neutral  and  stable  conditions 

MUNITION-AGENT  NOT  DEFINED  -  This  message  occurs  when  the  combination 
given  Is  not  in  the  standard  table. 

Q*  EQ  ZERO  -  The  airborne  sources,  Q' ,  Is  zero.  Control  returns  to 

the  ALL  statement. 

STILL  AIR  -  This  message  Is  a  reminder  that  the  still  air  model  for 
evaporation  has  been  used. 

TMP  GREATER  THAN  BOILING  POINT  -  Temperature  greater  than  boiling 
point  of  liquid,  the  program  will  continue  with  the  total  amount  spilled  as 
the  airborne  source. 

TMP  LESS  THAN  FREEZING  -  Temperature  less  than  freezing.  Q'  Is  set  to 
zero  and  control  is  returned  to  the  ALL  statement, 

6.  OUTPUT 

Output  Is  controlled  by  the  three  variables  NOV,  0P0,  and  OPC,  which 
are  defined  In  Table  3.  The  options  for  NOV  were  discussed  in  Section  3.1. 

The  long  listing  displayed  when  NOV  equals  2  or  3  will  become  tedious  after  the 
user  has  gained  some  experience  with  the  program.  A  shift  to  one  Is  recommended 
as  soon  as  the  options  can  be  recognized  by  the  operator. 

During  execution  the  first  line  of  output  comes  from  the  MASTER 
program  and  Is  essentially  a  summary  of  the  Input  information.  The  next  two 
lines  come  from  subroutine  DOS  and  list  the  source  (Q),  the  release  time  (TS), 
the  release  height  (HTS),  the  height  of  the  mixing  layer  (HML) ,  and  the  source 
sigmas  (SXS,  SYS,  SZS).  When  the  default  value  of  0P0  Is  used,  the  program  will 
execute  and  list  the  distance  to  each  of  the  three  response  levels,  1  percent 
lethality,  no  deaths,  and  no  effects.  If  other  dosages  are  specified  by  the 
operator,  these  dosages  will  be  listed  with  each  estimated  distance. 

When  the  2-mlnute  correction  Is  used  with  estimates  for  nerve  agents, 
an  extra  header  line  (w/2-mln  correction)  Is  displayed;  when  this  correction 
Is  dropped,  a  (w/o  2-mln  correction)  line  is  shown. 

Options  1  and  2  will  also  cause  the  diffusion  parameters  to.be  listed 

as  lines  4  and  5.  These  lines  will  also  list  XY  and  XZ,  which  are  the  offset 

distances  for  sigma  -y  and  sigma  -z  that  are  given  In  the  methodology  as  parame¬ 
ters  B  and  C.  The  last  output  at  the  end  of  line  5  (OPO  ■  1  or  2)  Is  the  wind 

speed  used  In  the  calculation.  This  may  differ  from  the  wind  speed  given  In 

the  first  line  when  the  woods  parameters  a*e  selected. 

The  following  Is  a  list  of  definitions  for  the  output  under  options  1 

and  2 : 


X  Downwind  distance  (m) 

DP  Peak  dosage  (mg  mln/m3) 


DP2  Peak  dosage  with  2-mlnute  correction 
ED  Effective  dosage  (mg  m1n/m3) 

ED2  Effective  dosage  with  2-mlnute  correction 

RF  Fraction  reflected  from  mixing  layer 

2MF  Two-minute  correction  factor 

EDI  Inhalation  component  of  ED2 

EDS  Skin  deposition  component  of  ED2 

When  0P0  option  3  is  used,  a  header  Is  printed  for  the  contour  dosages  and  then 

the  contour  half-widths. 
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7.  SUMMATION  OF  DOSAGE  DISTRIBUTION 

A  provision  has  been  made  to  sum  the  dosage  at  each  downwind  distance 
so  that  the  hazard  distance  from  multiple  sources  may  be  output  directly.  This 
process,  of  course,  Is  limited  to  sources  of  the  same  agent. 

To  utilize  this  feature,  three  control  commands  have  been  added  to  the 
ALL  question: 

SMC  Clear  sum  D(X) 

SMD  Add  current  D(X)  to  sum  D(X) 

SMP  Print  X ( 01 )  from  sum  D(X)  plus  current  D(X) 

Sum  D( X)  and  current  0(X)  are  each  51  element  tables  that  store  the 
dosage  for  each  distance  and  thus  define  the  downwind  distribution.  With  each 
run,  the  dosages  generated  are  stored  as  the  current  D(X). 

The  sum  D(X)  table  will  Initially  be  cleared  to  zero  and,  if  the  SMD 
command  Is  executed,  this  will  store  the  current  D(X)  values  In  the  sum  D(X) 
table.  After  the  changes  for  the  next  distribution  have  been  Input,  the  next 
run  will  generate  and  store  a  new  current  D(X),  leaving  the  previous  values 
stored  by  SMD  In  the  sum  D(X)  table. 

If  the  downwind  distances  are  to  be  based  on  the  sum  of  these  two 
distributions,  the  second  run  should  be  preceded  with  the  command  SMP,  which 
will  tell  the  program  to  add  the  value  In  the  sum  D(X)  table  to  the  current 
value  In  estimating  the  distance.  The  SMP  command  does  not  change  the  values 
stored  In  either  table. 

Repeated  use  of  the  SMD  command  will  continue  to  add  the  dosages  In 
the  current  D(X)  table  Into  the  sum  D(X)  table.  The  sum  D(X)  table  Is  cleared 
with  the  command  SMC. 

Thus,  t.he  sum  D(X)  table  Is  controlled  by  SMC  and  SMD,  and  the  current 
D(X)  table  Is  changed  only  by  executing  a  new  run.  When  a  run  Is  preceded  by 
SMP,  the  downwind  distance  will  be  based  on  the  current  D(X)  plus  the  sum  D(X) 
values.  The  SMP  command  Is  cleared  each  time  the  program  gets  to  the  ALL 
question,  so  the  SMP  command  must  be  repeated  If  the  command  is  given  before  a 
rescan, 

The  user  Is  cautioned  to  assure  that  the  dosages  from  the  previous  run 
extend  beyond  the  dosages  of  Interest  In  the  final  run.  For  example,  if  the 
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first  run  Is  terminated  at  the  1  percent  distance,  then  the  dosage  will  only  be 
stored  to  the  next  regular  distance.  If  the  sum  would  extend  the  curve  beyond 
this  distance,  then  the  remaining  portion  of  the  first  curve  will  be  missing 
and  the  answer  would  be  Incorrect. 

the  recommended  procedure  Is  to  define  a  small  cutoff  dosage  for  the 
first  run  using  NDI  In  the  ALL  question.  In  this  manner  the  dosages  will  be 
stored  beyond  the  distance  estimated  with  the  sum.  The  storage  table  for  the 
dosages  Is  dimensioned  at  51  and  thus  can  store  dosages  to  a  distance  of  900  km. 

In  operation,  the  current  D(X)  table  always  retains  the  dosages  of  the 
last  run.  The  SMD  command  does  not  clear  (or  change)  the  cunent  D(X)  table. 

The  SMP  command  leaves  the  current  D(X)  table  with  the  last  component  generated. 
This  Is  not  the  sum  on  which  the  distances  are  based.  This  component  can  be 
regenerated  and  printed  (0P0  ■  1)  by  repeating  the  run  without  the  SMP  command. 

In  this  version  of  D2PC,  the  Intravenous  doses  that  were  output  for 
VX  deposition  are  converted  to  effective  dosages  so  that  these  can  be  added 
directly  In  the  summation  process.  These  are  converted  for  a  breathing  rate 
of  25  1/mln.  If  another  rate  Is  needed,  the  breathing  rate,  BRT,  should  be 
changed  In  the  ALL  question, 

8.  VAPOR  DEPLETION 

In  response  to  a  request  from  the  U.S.  Army  Toxic  and  Hazardous 
Materials  Agency  (THAMA),  a  vapor  depletion  option  has  been  written  Into  the 
program.  (This  was  done  to  support  Oakrldge  National  Laboratory  In  their 
support  of  the  M55  demilitarization  effort.) 

The  approach  chosen  Is  based  on  the  current  open  literature  and  has 
not  as  yet  been  reviewed  or  approved  as  a  part  of  TP  10  by  the  DOD  Explosive 
Safety  Board, 

The  vapor  depletion  option  Is  controlled  by  the  Indicator  VDP,  which 
can  be  defined  In  the  ALL  question.  Vapor  depletion  Is  called  by  setting  VDP 
to  one  and  Is  released  by  setting  It  to  zero.  (The  default  value  Is  zero.) 

The  vapor  depletion  Is  computed  as  a  reduction  of  the  source  strength 
by  computing  the  mass  of  vapor  that  would  have  been  lost  to  the  distance  of 
Interest,  This  Is  done  by  computing  a  deposition  velocity  as  a  function  of 
wind  speed,  stability,  and  roughness  length  and  then  multiplying  this  by  the 
Integrated  area-dosage  (or  area-concentration)  to  the  point  of  Interest.  The 
fraction  remaining  Is  listed  before  each  downwind  estimate.  Comments  on  the 
computer  Implementation  of  this  process  are  given  In  Appendix  B.  The  methodology 
Is  presented,  along  with  the  source  references,  In  Appendix  C. 
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APPENDIX  A 


METHODOLOGY 


INTRODUCTION 


This  appendix  presents  the  methodology  for  the  atmospheric  diffusion, 
plume  rise,  and  liquid  evaporation  employed  In  this  program.  The  diffusion 
methodology  Is  limited  to  estimating  the  axial  dosage  or  concentration  at 
ground  level.  This  restriction  is  appropriate  for  hazard  distance  estimates. 

2.  TOTAL  DOSAGE  MODELS 

The  basic  equation  for  computing  the  axial  dosage  from  a  point  or  vir¬ 
tual  point  source  Is  given  by 
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D(x)  ■  axial  dosage  at  the  point  x  downwind  (mg  mln/m3), 

Q  •  source  strength  (mg) , 

cry  or  oy(x)  «  standard  deviation  of  crosswind  concentration  at  x  (m) , 

oz  or  o2(x)  ■  standard  deviation  of  vertical  concentration  at  x  (m), 

U  »  mean  wind  soeed  (m/sec), 

«  height  of  the  surface  mixing  layer  (in), 

H  «  effective  height  of  the  source  (m). 

The  standard  deviations,  Cy(x)  or  oz(x),  or  o2,  are  computed  for  the 
appropriate  distance,  x,  as  follows: 
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where 


<7y p ,  azr  m  reference  sigma  values  at  the  distances  Xyr,x2r,  respectively  (m), 
Xyp,  xzr  ■  reference  distances  (100  m) , 

a  ■  expansion  coefficient  In  the  crosswind  direction  (dimensionless), 

$  ■  expansion  coefflcent  In  the  vertical  (dimensionless), 

B  ■  virtual  distance  calculated  for  volume  source  (m) 


oy.  ■  standard  deviation  of  Initial  source  In  the  crosswind 
direction  (m) , 

C  -  virtual  distance  calculated  for  volume  source  (m) 
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o2s  ■  standard  deviation  of  initial  source  In  vertical  (m). 

The  basic  total  dosage  model  simplifies  somewhat  when  the  clouds  become 
trapped  under  a  mixing  layer  cap  and  eventually  result  In  a  cloud  with  a  uniform 
distribution  of  concentration  In  the  vertical.  Mathematically,  this  occurs  as  the 
Infinite  series 
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for  sufficiently  large  x.  This  new  formulation  of  the  total  dosage  model 
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When  the  Initial  source  Is  uniform  over  a  line  of  finite  length,  L, 

In  the  crosswind  direction  (y),  the  ground  level  total  dosage  along  the  cloud's 
axis  (the  line  starting  at  the  midpoint  of  L  In  the  direction  of  the  wind)  Is 
given  by 
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where 

L  ■  line  length  (m) , 
erf  (v)  ■  error  function  evaluated  at  v 

a-W2  dw. 


All  others  as  defined  above. 


3.  DIFFUSION  PARAMETERS 

The  set  of  diffusion  parameters  used  in  the  derivation  of  the  tables  and 
graphs  presented  In  this  handbook  was  taken  directly  from  Technical  Paper  No,  10,1 
Table  A-l  gives  the  required  reference  sigmas  and  expansion  coefficients. 

Table  A-l.  Recommended  Values  of  Parameters 


(Xyr  ■  xsr  -  100  m) 


4.  TWO-MINUTE  CORRECTION  MODEL 

This  methodology2  Is  required  to  Implement  the  changes  In  effective 
dosages  of  GB  and  VX  as  a  function  of  exposure  time  In  agent  clouds  of  nonunlform 
concentration.  Since  dosage  Is  a  function  of  exposure  time,  the  degree  of  hazard 
will  be  reduced  In  those  accidents  where  the  vapors  are  evolved  slowly  over  a 
substantial  time  as  compared  with  nearly  Instantaneous  releases.  This  Is  a 
result  of  a  nonlinear  relationship  between  dosage,  exposure  time,  and  the 
expected  physiological  response. 

The  basic  model  for  calculating  ground  level  partial  dosages  Is  as 

follows: 
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where 


Ae  ■  time  Interval  of  interest  (min). 


*  9g  -  9i , 


01.  02  *  beginning  and  end  of  time  Interval  as  measured 
from  the  release  time, 

a*  or  0x(x)  ■  standard  deviation  of  the  concentration  In  the 
x  direction  (m). 


All  others  as  defined  above. 


(A-6) 


For  an  Instantaneous  source,  dosage  buildup  at  a  point  as  a  function 
of  time  Is  readily  determined  from  equation  A-6,  For  releases  occurring  at  a 
uniform  rate,  AQ/At ,  for  a  time  period  from  the  Initiation  of  emission,  eo(»0) 
to  0s,  computation  of  the  dosage  for  an  arbitrary  interval,  &e  «  dp  -  ei ,  requires 
application  of  the  more  complicated  expressions: 
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If  6i<0s<8? •  the  total  time  period  Is  partitioned  Into  the 
segments  to  es  ana  es  to  63.  The  dosage  contribution  for  each  time  segment 
Is  derived  separately  from  the  appropriate  form  of  the  equation  and  the  results 
added.  Equation  A-6  Is  also  readily  adapted  to  cases  of  variable  rate  of  agent 
generation,  provided  the  total  emission  time  can  be  divided  Into  a  set  of  Inter- 
vals  for  each,  where  a  constant  AQ/At  can  be  assumed.  The  contribution  of  a 
"source  segment,"  as  defined  by  AQ/At  over  a  given  time  Interval,  to  the  total 
dosage  accumulated  during  A8  may  be  computed  Independently  for  each  such  segment 
from  equation  A-6.*  The  sum  over  the  set  of  values  so  obtained  Is  the  total 
dosage  of  Interest. 


Mn  applying  equation  A-6,  It  should  be  noted  that  agent  emission  Is  defined  In 
the  expressions  as  occurring  from  the  origin  (eg  ■  0)  of  the  time  scale  to  6S. 

For  cases  Involving  a  series  of  uniform  generation  rates,  appropriate  trans¬ 
lations  of  the  time  scale  (1,e.,  agent  emission  from  ea  to  9b)  will  be  necessary. 
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The  expansions  for  Oy  and  az  are  noted  In  section  2  of  this 

appendix. 


Values  for  <jx  may  be  computed  from  a  study  of  long-distance  cloud 
travel,  which  was  done  by  Halvey*  In  1973.  This  work  resulted  In  the  following 
relationship: 


o 


x 


.1522  x 


.9294 


It  follows  from  the  dosage  response  curves?  that  an  effective  dosage 
for  an  exposure  time  t  (expressed  In  minutes)  can  be  obtained  by  multiplying  the 
corresponding  reference  "2-mlnute"  value  by  the  factor 


M  -  0.827  t0.274  (t>  2  minutes).  (A-8) 


A  rationale  was  developed  for  the  computation  of  the  multiplier  M  by. means  of  a 
numerical  procedure  that  allows  for  discrete  changes  In  agent  concentration  as 
the  cloud  moves  over  a  ground  location.  In  essence,  a  "pseudo11  exposure  time 
Is  determined  through  a  sequence  of  adjustments  for  successive  time  Increments 
covering  cloud  passage.  This  "pseudo"  exposure  time,  which  must  be  2  minutes 
or  greater  for  equation  A-7  to  be  applicable,  can  be  considered  essentially  as 
an  Integrated  average.  The  precise  sequential  mathematical  procedure  Is  as 
follows: 

let 


tj  ■  clock  time  In  minutes, 

•t'l  ■  "pseudo"  exposure  time  In  minutes, 
AD}  ■  dosage  accumulation  In  Interval  1, 
Di  ■  cumulative  dosage  to  time  t}  , 

0q i  ■  2-mlnute  reference  dosage. 


Subscript  m  denotes  the  value  computed  from  transport  and  diffusion  mode. 
Subscript  e  denotes  the  extrapolated  value  as  Indicated  below: 

1 st  Interval :  Select  clock  time  Interval  tg  — >  (t]  -  to)  >  2  minutes 

a.  Determine  Diffl  for  Interval  ti  -  tg  from  transport  and  diffusion  model, 

b.  Set  t i  »  t ■}  -  tg, 

*Halvey,  David  £>.  Estimation  of  Cloud  Length  for  Long  Distance  Travel. 
Unpublished  data,  Operations  Research  Group,  Egewood  Arsenal,  Maryland, 

July  1973.  UNCLASSIFIED. 
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c. 


Compute. 


I 


(0.827)  (t^O.274 


2d  Interval :  Select  clock  time  interval  tj  — *  t2 

a.  Determine  AD2m  for  Interval  t 2  -  t]  from  transport  and  diffusion  model 

b.  Compute  (1)  D2m  "  Dim  +  AD2n)» 

(2)  D2e  -  0.827  D01  (tj  +  t2  -  t^0*274  -  ( Tl  )0*274, 

c.  Compare  AD2m  with  aD26 

(1)  If  AD2m  ■  AD2e,  sat  x2  ■  n  +  t2  -  t], 

(2)  If  AD2m  >  AD2e»  compute 


°2e  *  D1m  +  A&2e 


t2  [d2.(ti 

!  2m 


-  M),J  (t,  - 


0.274 


(3)  If  AD2m<  AD2e •  compute 


0.274 


h  “  *1 


(t2  -  tQ)  (^  +  t2  -  tj)  + 


l> '  tTTT 


0.274 


0.274 


2  1 


d.  Compute  Dq2 


0.827(t2)0'274’ 


General  Case:  Select  clock  time  interval  >  tj 


a.  Determine  Adfm  for  interval  t]  -  t^  .j  from  transport  and  diffusion 
model , 
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t*l 


0 


I*  V 


W 


b.  Compute 


<»  »i.  ■  Dd  -n« +  idi». 

(2)  4DU  -  0.822  |(Vl  +  t(-  -  (,1.1)0.27*j 


c.  Compare  with  ADie 

(1)  If  aDim  ■  ADie  set  ti  »  ti„i  +  tj 

(2)  If  ADim  >  AD'e.  compute 
(a)  Die  -  D( i -i )m  +  ^le 


-  ti_i 


(b)  y 


°l.iTl-l  *  C1  -‘t-ll0-274  ^  (*»,.  -  *V  <t,  * 


,57 


“'lm 


(3)  If  Dim  <  Die.  compute 


^■.-‘oX WT  W8-”*  f 


0.274 


'in 


d.  Compute  Dqi 


D 

0.827( T 


lm 

^0.274  * 


For  n  Increments,  the  reference  2-mlnute  dosage  Dgn  Is  the  value  used 
In  constructing  the  generalized  curves  for  GB  and  VX  respiratory  effects. 


In  using  the  above  procedure,  three  precautions  must  be  observed. 
Firstly,  t i  cannot  be  permitted  to  decrease  below  2  minutes.  Although  such 
occurrence  would  generally  be  unlikely,  the  possibility  should  be  recognized  In 
the  computational  procedure.  Secondly,  Dqi  must  be  nondecreasing  for  successive 
Increments.  If  Do( k+l )  <  Dgk »  as  could  occur  through  consideration  of  very  low 
dosages  produced  by  the  trailing  edge  of  a  cloud  over  an  extended  time  period, 

It  Is  recommended  that  DoU+1)  be  se^  equal  to  Dgk  before  proceeding  to  the  next 
Interval,  Thirdly,  since  It  is  not  apparent  that  the  maximum  value  of  Dqi  will 
always  exceed  the  actual  peak  2-mlnute  accumulation  during  cloud  passage,  a 
numerical  comparison  should  be  made,  with  the  larger  value  obviously  accepted 
as  the  basis  for  hazard-distance  estimation. 
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5. 


CONCENTRATION  MODELS 


The  mathematical  model  representing  the  maximum  ground  level  concen¬ 
tration  from  an  Instantaneous  point  or  virtual  point  source  at  a  distance  x  Is 
given  by 

"  -mw*,)2  +  r  (.-‘/2<<2%  ♦  ">'•,>* 

1-1  \ 


X<x) 


,r^1,3/2flx0y  °t 


«“1 


where 

x(x)  ■  concentration  at  the  point  x  (mg/m3). 
All  others  as  defined  above. 


(A-9) 


For  the  continuous  case,  differentiation  Is  made  between  the  purely 
continuous  release  and  that  of  the  quasl-contlnuous  release.  In  the  purely 
continuous  case,  the  emission  time  Is  assumed  to  be  sufficiently  large  so  that 
a  steady-state  concentration  Is  reached  at  each  point  downwind.  The  concen¬ 
tration3  from  a  contlnous  point  source  is  numerically  equal  to  the  dosage  from 
an  instantaneous  source  whose  total  emission  Is  numerically  equal  to  the  rate 
of  the  contlnous  source,  AQ/at,  thus, 


x<*>  -  + 

,  -l/2((2iH  -  H)/o  )2 
“  •  in  z 


where 


( A- 1 0 ) 


AQ/at  ■  rate  of  emission  (mg/mln). 

All  others  as  defined  above. 

For  the  quasl-contlnuous  releases  the  maximum  axial  concentration 
at  a  distance  x  Is  given  by 


.  .  AQ/At 
XU>  *  I'QvalTC 


-1/2(H/o)2  +  :  «>/V2 


“  s  ii 
1-1  \ 


)} 


xM 


AQ/At  t. 


■r7,1/2°«V« 


+  l/2( ( 2iHm  -  H)/o8)  1  for  x  <  Xc, 


'  -l/2( (2iH  +  H)/0 ,)2 
e  d  i 


L-1/2(H/o?)2  -t-  I 

L  ^ 

^rl/7.((2iHn-  H)/o2)2j 


M 


for  x  >  X 


(A-U) 
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where 


Xc  ■  exp^in  {(ta*60*u)/0.1522  •  /Ttr} /0.9294  J  , 
ts  ■  release  time  (min). 


All  others  as  defined  above. 

For  a  finite  line  source,  either  Instantaneous  or  continuous,  where 
the  release  Is  uniform  over  a  line  of  length,  L,  in  the  crosswind  direction, 
the  axial  concentration  Is  given  by 


x<x) 


LVB* 


erf 


l2  /To., 


#-l/2(H/o,)2  ♦  r 
t-1 


A  -\nU2LH  -  H)/o ,)2 

T-  ft  m  S 


( A- 12 ) 


when  all  variables  are  as  defined  above. 

6.  EVAPORATION  MODEL 

The  evaporation  rate  model5  Is  reproduced  here  as  It  was  originally 
presented  In  ORG  report  40.*  The  only  change  In  the  methodology  has  been  the 
conversion  to  metric  units  for  consistency  with  this  handbook.  The  procedure 
Is  as  follows: 

Determine  the  dimensionless  Reynold's  number,  Nr8  for  the  airflow 
from  the  equation 


NRe  «  x  •  u  ■  p  /  w  x  104 


( A- 1 3 ) 


where 


X  ■  downwind  length  of  the  puddle  (m), 

U  ■  wind  speed  (m/sec), 

p  ■  density  of  the  air  (gm/cm3), 

u  ■  viscosity  of  the  air  (po1se(gm/cm  •  sec)). 

The  density  of  air  In  gm/cm3  can  be  determined  by 

0.35232 

p  .  -  .  p  (A-14) 

T 
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T  ■  temperature  (6K) , 

P  ■  ambient  pressure  (atm), 


follows: 


where 


The  viscosity  of  air  can  be  determined  from 

H  .  +  .002844  T>  x  1Q-64  (A-15) 

From  the  Reynolds  number,  calculate  the  mass  transfer  factor,  jm,  as 

Ja  -  0.664  N,^  “°'5  for  Nr,  <  20,000 

ja  -  0.036  NR#  *0,2  for  Nr#  >  20,000  ^A"16^ 


( A-16) 


With  this,  the  mass  transfer  coefficient,  Kg,  Is  calculated  by 
K«  "  G«  *  (w/pd)’2'3 

Kg  ■  mass  transfer  coefficient  (gm  moles/sec  *  cm2), 

G,,,  ■  molar  mass  velocity  of  air  (gm  moles/sec  •  cm2), 

(y/pd )  ■  Schmidt  number  (dimensionless), 
d  ■  dlffuslvlty  (cm2/sec). 

The  molar  mass  velocity  of  air  can  be  detemlned  by  the  formula 


(A-17) 


where  M*  ■  molecular  weight  of  air  (gm/gm  mole), 

The  dlffuslvlty  of  air,  d,  may  be  computed  from 


d  ■  0.0043 


where 


+  vL 


“  f.i-y 

+  Vl/3)  \ma  Ml/ 


T  ■  temperature  (°K) , 

P  ■  ambient  pressure  (atm), 


( A- 18  > 


(A-19) 


ft 
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Va  ■  molecular  volume  of  air  at  normal  boiling  point 
(cm3/gm  mole), 

Vl  ■  molecular  volume  of  liquid  at  normal  boiling 
pol nt  (cm^/gm  mole) , 

Ml  ■  molecular  weight  of  liquid  (gm/gm  mole). 

Finally  the  evaporation  rate,  £,  is  defined  by 

E  ■  Kg.  Ml*  Pl/(760  •  P)  •  6  x  105 


(A-20) 


where 

E  ■  evaporation  rate  of  liquid  (gm/m2  min) 

Pl  ■  vapor  pressure  of  liquid  at  liquid  air  Interface  (mm  Hg). 

7.  EVAPORATION  RATE  INTO  STILL  AIR 

The  model  for  evaporation  In  still  air  Is  reported  in  change  3 
(June  1980)  to  TP1 0*1  This  methodology  Is  to  be  used  when  the  Incident  occurs 
within  a  closed  building  or  other  confined  location  that  precludes  the  movement 
of  air  during  the  evaporation  of  the  toxic  liquid.  The  evaporation  rate  Into 
still  air  Is  calculated  using  the  following  semlemplrlcal  equation 

Ea  -  292(1  +  0.51  R*l/2  Sc1/3>  In  d  “f"  (A“21) 


where 


Es  ■  evaporation  rate  (gram/mln) 

Re  ■  Reynolds  number  (using  a  wind  speed  of  .03  m/sec) 
Sc  ■  Schmidt  number 
P  ■  ambient  pressure  (atmospheres) 

Pv  ■  vapor  pressure  of  liquid  (atmospheres) 

Ml  ■  molecular  weight  of  liquid 
T  ■  ambient  temperature  (°K) 
d  ■  dlffusivlty  of  air  (cm2/sec) 

X  »  diameter  of  spill  (meters) 
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,v  .*•  v*y  -y.4i:*y  -y-  v,y.y*‘ 


p=  density  of  vapor  (g/cm3) 
u  »  viscosity  of  vapor  (g/cm/s) 


•e  "  (A-23) 

In  calculating  the  Reynold's  number ,  the  effect  of  the  agent  vapor  on 
the  air  viscosity  and  density  will  be  Ignored. 

P  *  (for  water  vapor  pressure  of  25  na  Hg)  (A-24) 


If  the  evaporation  Is  into  air  with  a  mdlecular  weight  of  29  and  the 
liquid  has  a  molecular  weight  between  27  and  278,  then  the  dlffuslvlty  of  the 
liquid's  vapor,  following  the  Wilke-Lee  equation,  can  be  stated  as  follows: 


d  * 


.00205T3/2  sj 


J-  +  JL 


(A-25) 


where 


d  ■  dlffuslvlty  (cm2/sec) 


0  0 

°12  "  ■  average  molecular  collision  diameter  (angstroms)  (A-26) 


The  collision  diameter  Is  estimated  from  the  molecular  volume  as:6 


o  -  1.18  W  1/3 


(A-27) 


and 


n0  ■  collision  Integral  for  diffusion 
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An  empirical  aquation  for  flp  has  been  developed  by  Chen?  as  follows: 


where 


°o 


„  -.1613 

1.073  (T-r)  +2  <1Q 

*12 


T) 


-.74  lot  (10  T) 
12 


(A-28) 


where 


k  is  the  Boltzman  constant 
*12  the  energy  of  molecular  Interaction  (ergs) 


the  value  of  */«  for  the  vapor  may  be  estimated  by:8 


(A-29) 


e/e-  1.21Tb  (A-30) 

when  Tb  Is  the  boiling  point  of  the  liquid  (°K). 

Since  c/k  for  air  Is  given  as  78.6.*  the  value  of  T  c/ki2  In  the 
Chen  equation  may  be  estimated  as  follows; 


T  *  -1025  ^17  (A-31) 

8.  IMPACTION  MODEL 

The  amount  of  VX  that  would  impact  on  a  man-sized  object  as  a  function 
of  downwind  distance  and  wind  speed  is  estimated  as  follows?; 

dp  -  0.454  •  Qp  •  (U/x)2*38  (A-32) 

where 

dp  Is  the  amount  deposited  (dose  per  man)  (mg) 

Qp  Is  the  munition  fill  weight  (mg) 

U  Is  the  wind  speed  (m/sec) 
x  Is  the  downwind  distance  (m) 


♦NASA  Technical  Report  R-132. 
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VX  INHALATION-DEPOSITION 


In  order  to  consider  the  combined  effects  of  aerosol  Impaction  and 
vapor  Inhalation  as  would  occur  from  an  exploding  VX  filled  M55,  the  combined 
toxicological  effects  are  considered  by  converting  to  the  Intravenous  dose  dj. 
This  approach  was  developed  for  ORG  40*  and  explained  in  the  handbook. 8  The 
equation  relating  the  components  can  be  expressed  as  follows: 


dj  ■  D  B  +  dp  F$ 


(A-33) 


where 

dj  Is  the  intravenous  dose  (mg) 

D  Is  the  Inhaled  dosage  (mg-min/m3) 

B  Is  the  breathing  rate  (mVmln) 
dp  Is  the  percutaneous  dose  (mg) 

Fs  Is  the  skin  factor 

The  Inhaled  dosage,  D,  can  be  computed  using  Equation  7. 


However,  If  the  agent  fill  weight,  Qp  Is  used  as  the  source,  a  factor 
must  be  Introduced  to  adjust  the  dosage  for  the  airborne-vapor  efficiency  of  the 
explosion.  An  analysis  done  by  Systems  Analysis  Directorate  at  ARRCOM,  based  on 
tests  of  the  M55  conducted  at  Dugway  Proving  Ground,  suggests  that  13  percent  Is 
an  appropriate  figure.  Thus,  to  compute  the  Intravenous  dose  from  Inhalation: 


DB  -  Dp  .  Ey  Ba/ 1000 


( A- 34) 


where 

DB  Is  the  Intravenous  dose  from  Inhalation  (mg) 

Dp  Is  the  2-mlnute  computed  dosage  from  Qp  (mg  min/ nr) 

Ey  Is  the  vapor  efficiency 

Bfc  Is  the  breathing  rate  U/min), 

If  Ey  »  0.13  and  B4  =  25  t/min,  then: 


DB  ■  Dp  0.00325 


( A-35) 
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From  ORG  402  and  the  handbook,®  the  Intravenous  dose  from  deposition 
on  the  skin  can  be  computed  as  follows: 

dp  Fs  -  0.455  (u/x)2*%s  (A-36) 

If  Fs  =  0.022  for  light  summer  clothing, 

dpFs  -  0.01  (u/x)2.38  (A-37) 

10.  HAZAR0  DISTANCFS  FOR  THE  M23  LAND  MINE 

From  an  analysis  of  experimental  data  conducted  by  Systems  Development 
Division,®  the  following  model  was  developed  to  estimate  the  Impaction,  or  depo¬ 
sition  dose,  on  a  man-sized  target  downwind  of  a  bursting  M23  land  mine  filled 
with  VX.  The  model  Is  similar  to  that  adopted  for  the  M55  rocket  except  that  the 
land  mine  produced  very  little  vapor.  Thus,  the  model  for  Intravenous  dose 
(equation  A-33)  contains  only  the  deposition  component  for  the  M23  mine. 

The  deposlton  on  a  man-sized  target  Is  estimated  by  the  following 

equation: 

d  -  0.262  QF  (-T-)  (A-38) 

where  *  v 

dp  Is  the  peak  deposition  dose  per  man  (mg) 

Qp  Is  the  fill  weight  (mg) 

u  Is  the  wind  speed  (m/sec), 

x  Is  the  downwind  distance  (m) 

If  one  assumes  the  vapor  to  be  negligible,  then 

dj  -  dp  Fs  (A-39) 

where 

dj  Is  the  Intravenous  dose  (mg) 

Fs  Is  the  skin  factor 

The  downwind  distance  may  be  computed  directly  from 

x  ■  u 

or  for  Qp  ■  5.2E6,  Fs  =  .022  ,  and  dj  ■  .1, 

x  *  279  u  (A-41 ) 
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Equation  A-41  estimates  the  1  percent  lethality  distance  with  light 
summer  clothing  from  on  bursting  M23  mine,  filled  with  VX. 

For  N  mines,  the  equation  Is 

x  «  279  u  N*4464  (A-42) 


11.  HO  EXPLOSIVE  SOURCE 

The  methodology  specified  for  explosive  release  of  HD  (as  from  the 
4 .2-1 nch  mortar)  In  ORG  40*  and  the  handbook8  Is  not  a  physical  analog  In  the 
same  sense  as  the  other  models.  It  Is  a  system  of  factors  computed  from  wind 
speed,  temperature,  stability,  ar-d  time  that  determines  an  agent  recovery 
factor,  R.  This  factor  Is  multiplied  by  the  fill  weight,  Qp,  and  the  product 
Is  used  In  an  empirically  fit  version  of  the  Gaussian  diffusion  model  to  estimate 
downwind  hazard  distance. 

The  tabular-graphic  system  appearing  In  the  handbook^  was  approximated 
by  a  system  of  equations  to  permit  automation  on  either  a  computer  (FORTRAN)  or 
a  Pocket  calculator.  These  equations  are  summarized  as  follows: 

Q  -  QfR  ( A-43 ) 


where  R  Is  the  agent  recovery  factor 

r  -  1  An  PE  <  -  1.2  ( A-  4  4 ) 

Rj  «  «xp  (0.365  -  0.862  to  Fr) 
r  »  Rj  -  exp  (-0.248  -  1.14  An  Fg)  -1.2  <  An  Fp  <  0.4 

R  ■  Rj  -  exp  (-0.0513  -  1.68  to  Fp)  to  Fp  >  0.4 

The  environmental  factor,  Fp,  Is  defined  by: 


F 


E 


m 

CA 


( A- 45 ) 


where 

Fp  Is  the  environmental  factor 

Fw  Is  the  wind  speed  factor 

Fj  Is  the  temperature  factor 

t/\  Is  the  lapsed  time  after  detonation  (min) 

Then 

Ft  ■  «xp  (2.2  -  0.0837  Tc>  Tc  <  27 

Ft  •  «xp  (2.05  -  0.077  Tc)  Tc  >  27 
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where 


hi 


m 


H 


V 

f 

t 


II 


Tq  Is  the  temperature  (°C) 

Fw  -  1.55  u-0*79 

The  values  of  Fs  are  defined  In  Table  A-2. 

Table  A-2.  Parameter*  for  Exploilve  HD 


A-47) 


Stability 

M 

SY1 

SZ1 

A,B 

0.7 

3.3 

0.00000147 

0.0000628 

C,D 

1.0 

1.4 

0.0108 

0.0204 

E,F 

1 .23 

1.02 

0.0622 

0.0636 

where 


The  dosage  at  x  Is  then  computed  from: 

"  60w  Oydx^  ot(x!)  u 


Oy  <x)  -  Oyl  <X  +  B)' 


(A-48) 


o«  (x)  ■  ofi  (x  +  C)B 
B  -  <3.8/oyl)l/a 
C  ■  (0.2/otl)l/8 


( A-49) 


Equation  A-48  Is  of  the  same  form  as  equation  A-5,  except  that  source 
sigmas  of  3.8  and  0.2  have  been  Introduced.  Please  note  that  the  values  of 
a j!ovl  and  ozl  are  not  the  same  In  Tables  A-l  and  A-2.  The  values  In  Table  A-2 
are  to  be  used  only  for  explosive  HD  sources. 

12.  PLUMES  AND  OTHER  HEATED  SOURCES 

This  section  deals  with  the  techniques  involved  in  the  calculation  of  an 
effective  height  of  release 

H  ■  Hj  +  Ah 
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where 


Hs  Is  the  release  height 

Ah  is  the  amount  of  rise  due  to  buoyancy  or  momentum  of  a  release 
of  agent  possessing  positive  vertical -movement  tendencies. 

This  tendency  to  rise,  either  by  momentum  or  buoyancy,  creates  a  pseudo  release 
point  at  some  particular  height  above  the  ground  and  at  a  distance  downwind  from 
the  Initial  release  point.  The  methods  presented  here  are  concerned  with  tracing 
the  centerline  as  the  cloud  rises. 

Several  assumptions  are  present  either  explicitly  or  Implicitly  In  the 
methods  presented.  The  first  Is  the  absence  of  any  major  aerodynamic  effects 
present  to  Influence  cloud  rise.  For  example,  the  presence  of  buildings, 
topographical  features,  or  the  stack  Itself,  In  the  case  of  plumes,  can  create 
wakes  that  may  result  In  extremely  high  concentrations  at  ground  level.  A  rule 
of  thumb  applicable  to  smoke  stacks  Is  that  a  stack  2.5  times  the  height  of  an 
adjacent  building  will  minimize  this  phenomenon  of  downwash.10  Also,  a  stack 
efflux  velocity  of  at  least  1.5  times  the  average  wind  speed  at  the  top  of  the 
stack  Is  usually  enough  to  overcome  the  downwind  pressure  gradient  creating  the 
downwash  effect.10 

Another  assumption  Is  that  the  height  of  the  mixing  layer  Is  greater 
than  the  estimate  of  the  effective  release  height.  In  situations  where  this  Is 
not  the  case,  the  user  Is  directed  to  Brlgg's  work,10  where  a  methodology  Is 
presented  for  predicting  whether  a  plume  can  penetrate  through  the  mixing  layer 
cap.  In  situations  where  the  plume  penetrates  this  cap,  the  effluent  or  pol¬ 
lutants  are  trapped  above  the  surface  mixing  layer  so  that  only  negligible  con¬ 
centrations  are  expected  at  ground  level. 

12.1  Holland  Model . 

The  Holland  equation11  has  seen  wide  use  for  the  determination  of 
plume  rise  from  Industrial  stacks.  This  equation  frequently  underestimates  the 
effective  height  of  the  stack  and,  therefore,  provides  a  slight  safety  factor 
In  hazard  distance  calculations.  Its  major  advantage  Is  that  each  of  the 
variables  required  Is  usually  easily  obtained  or  estimated.  The  form  of  the 
equation  Is  as  fol lows  : 

V  d  /  T  -  T  \ 

Ah  -  — i-2.  1.5  +  2.68  X  10“3  p.  -! - -  •  d«]  ( A- 5 0 ) 

»  V  T,  •/ 

where 

Ah  ■  rise  of  plume  above  the  stack  (m), 

V 5  ■  mean  stack  effluent  velocity  (m/sec) 
ds  «  Inside  diameter  of  stack  (m), 

U  >  mean  wind  speed  (m/sec), 
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pa  -  ambient  air  pressure  (mbar),  not  corrected  to  sea  level. 

T$  »  stack  effluent  temperature  (°K). 

Ta  «  ambient  air  temperature  (°K),  and 

2.68  x  10"3  is  a  constant  with  units  mbar*1  irr1 

Holland11  suggests  that  10  to  20  percent  of  the  rise  given  by  the 
equation  be  added  for  unstable  conditions  and/or  equal  amounts  subtracted  for 
Inversions. 

Since  the  Holland  equation  Is  an  empirical  formulation.  It  should  not 
be  applied  to  stacks  exceeding  the  ranges  on  which  It  was  developed,  l.e  .stack 
diameters  from  1.7  to  4.3  meters  and  stack  temperatures  from  82  to  20S  °C.12  It 
should  also  be  noted  that  the  downwind  displacement  between  the  stack  and  the 
point  at  which  the  maximum  rise  occurs  Is  not  measured  by  this  method.  Thus, 
this  technique  should  not  be  used  If  the  resulting  hazard  distance  Is  within  a 
few  hundred  meters  from  the  stack,  since  this  value  will  tend  to  underestimate 
the  true  distance. 

When  more  accurate  estimates  of  cloud  rise  are  required,  the  following 
methods  derived  by  Briggs  are  capable  of  providing  such  results. 

12.2  The  Briggs  Model. 

An  Important  result  of  the  study  by  Briggs10*13  was  that  buoyant 
plumes  were  found  to  follow  a  2/3  power  law.  The  assumptions  were  made  that 
buoyancy  Is  conserved  and  that  any  Initial  momentum  Is  negligible  for  a  very 
buoyant  plume  In  unstratified  surroundings.13  The  form  of  the  equation: 

Ah  ■  1,6  F1/3  *  u.-1  (A-51) 

where 

F  ■  Initial  buoyancy  flux  divided  by  irp  (mfysec3). 


Ta  ■  ambient  temperature  (8K), 

Ts  «  plume  temperature  (°K), 

Vs  ■  mean  stack  effluent  velocity  (m/sec). 
g  -  gravitational  constant  (9.8  m/sec?), 
ds  «  Internal  stack  diameter  (m), 
x  >  downwind  distance  from  stack  (m),  and 
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The  constant,  1,6,  In  equation  A-51  Is  based  on  a  "best-fit"  of 
empirical  data  and  corresponds  to  a  value  of  the  entrainment  coefficient  of 
0.6,  which  Is  typical  of  large  fossil-fuel  plants. 

The  vertical  structure  of  the  wind  in  the  lowest,  turbulent  layer,  from 
the  surface  to  approximately  300  m,  has  been  adequately  described  by  the  empiri¬ 
cal  power  law  in  which 


U2  ■  llr(z/zr)P 


(A-52) 


where 


Ur  •  wind  speed  measured  at  height  zr  (m/sec), 

z  -  stack  height  (m) ,  and 

p  ■  wind  profile  exponent  (nondlmenslonal ) . 

Values  for  p  are  provided  for  various  locations  In  Appendix  D  of  the 
handbook.8  Since  the  values  presented  there  are  topographically  dependent  and 
net  site-dependent,  the  wind  profile  exponents  can  also  be  used  for  sites  not 
Included,  On  the  basis  of  terrain  type,  values  associated  with  Dugway  Proving 
Ground  can  be  used  for  flat  terrain,  those  for  Anniston  Army  Depot  for  rolling 
or  hilly  terrain,  and  those  for  Johnston  Island  can  be  used  for  marine  sites. 

For  neutral  stability,  a  good  approximation  Is  given  by: 

Ah  ■  1.6  F*/3  U8  1  x  2^3  when  x  <  3.3  X* 

Ah  -  1.6  F1/3  U/1  0.3  x*>2/3  whin  x  >  3.3  x*  (A-53) 

where  x*  Is  calculated  by  the  relationships, 

x*  ■  14  F3/8  when  F  <  33  oVeec3 

x*  •  34  F2^3  when  F  >  35  o^/eec3.  (A-54) 

For  stable  regimes,  equation  A-51  Is  valid  approximately  to  the  maximum 

-1/2 

distance  x  ■  2.4  Uz  s  where  s  Is  da f 1 ned  by: 

■  ■  4f  (A-55) 

ae 

where  —  »  average  potential  temperature  gradient  (°K/m). 

32 


Beyond  the  distance,  x,  defined  above,  the  height  of  the  plume  centerline 
levels  off  under  stable  conditions  at  about 

Ah  -  2.5  (F/U  «)3/3  (A-56) 

K 
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In  situations  where  there  are  calm  or  very  light  winds  under  stable 
conditions,  the  following  formula  developed  by  Morton,  Taylor,  and  Turner14  best 
applies  If  It  gives  a  lower  plume  rise  than  equation  A- 5 C : 


Ah  -  5.0  F 


( A-57 ) 


Briggs1 3  notes  that  equations  A-53  and  A-54  apply  satisfactorily  In 
•instable  conditions  as  well,  and  also  In  slightly  stable  conditions,  If  they 
give  a  lower  plume  rise  than  equation  A-56. 


12.3  The  Brlags-Thomas  Model. 

Thomas*5  also  working  with  the  "two-thirds  power  law,"  determined 
plume  rise  to  correspond  to  the  following  formulation,  which  uses  the  Pasqul 1 1 
categories  for  determining  atmosphere  stability  classification. 


Ah  -  CFlf\~l  x  2/3 

Based  on  observations  under  various  stability  conditions: 


(A-58) 


C  -  1.065  -  6.25  jf  (A-59) 

96 

where  — ,  the  average  potential  tempeature  gradient,  Is  defined  In  Table  A-3. 
82 


Table  A-3.  Average  Potential  Temperature  Gradient 


Stability 

Pasqulll  stability 
category 

JLft. 

9s 

(°K/o) 

Extremely  unstable 

A 

-0.010 

Moderately  unstable 

B 

-0.008 

Slightly  unstable 

C 

-0.006 

Neutral 

D 

0.000 

Slightly  stable 

E 

0.010 

Moderately  stable 

r 

0.037 
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12.4  Jet  Plumes 


In  the  case  of  jet  plumes,  where  momentum  Is  the  overriding  factor  in 
plume  rise,  It  Is  recommended  that  In  neutral ,  windy  conditions  the  trace  of  the 
centerl Ine  Is  given  by: 


Ah»  1.44da  <VB/UI)J*/3  <x/da)l/3  (A— 60) 

and  Is  valid  at  least  to  the  point 

Ah  ■  3  •  V|/UJ|  •  d#  providing  V#/Ut>4.  (A-61) 

For  windless  conditions,  the  jet  rises  to 

Ah  -  4<F„/a)l/*  (A-62) 

m 

where 

Fm  ■  momentum  flux  parameters 


p0  -  density  of  gases  emitted  from  stack  (gm/m3) 
p a  ■  density  of  ambient  air  (gm/m3), 

Other  variables  as  defined  above. 

From  a  purely  theoretical  standpoint,  Briggs  suggests  using  the 
following  formula  In  a  stable  regime  with  some  wind  and  also  recommends  Its  use 
If  It  predicts  a  lower  rise  than  either  equation  A-61  or  A-62.  The  theoretical 
formula  based  on  his  model  Is: 

Ah  -  1.3  (F./UJ^3  e*1/6  ( A-63) 

m  8 

12.5  Rise  of  Heated  Clouds. 

Technical  Paper  No,  10l  presents  a  methodology  for  the  calculation  of 
the  rise  of  a  heated  cloud  resulting  from  a  fire  or  explosion  In  a  stable  atmo¬ 
sphere.  The  method  Is  based  on  the  work  by  Briggs'3  and  extended  by  Dumbauld 
et  aj[ .  16  This  presentation  of  the  method  has  been  simplified  and  the  notations 
made  to  conform  with  that  used  In  this  handbook, 
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"O  O  O  V  V-  O  O  O  « 


„  «  fc  ^  ,  *  »  4  "  ,  ^  ,  I 


The  maximum  cloud  rise,  Ah,  downwind  from  an  Instantaneous  source  In 
a  stable  atmosphere,  Is  given  by 

1/4 


Ah 


6F 


T 


r 


.4  1 


yi  •  •  \  yi  / 

F  ■  buoyancy  parameter 
iQu 


r 

*1 


(A-64) 


CpT« 


g  ■  acceleration  due  to  gravity  (9.8  m/sec2), 

Qh  ■  effective  heat  released  (cal), 
pa  ■  density  of  ambient  air  (gm/m3), 

Cp  ■  specific  heat  of  air  at  constant  presssure  (0.24  cal/gm  °K), 

Ta  ■  ambient  air  temperature  (°K), 

YI  ■  entrainment  coefficient  for  an  Instantaneous  source  (dimensionless), 
r  ■  Initial  cloud  radius  (m) , 
g  38 

s  ■  —  — — ■  restoring  acceleration  per  unit  vertical  displacement 
Ta  3z  for  adiabatic  motion  In  atmosphere  (sec"2), 

38 

—  ■  vertical  potential  temperature  gradient  (°K/m). 

3z 

(Estimates  for  this  are  provided  In  Table  A-3.) 

It  Is  recommended1  that  a  value  for  yj  of  0.64  be  used  for  large 
explosive  releases. 


The  maximum  cloud  rise  Ah,  downwind  from  a  quasl-contlnuous  source 
(see  section  7.4  of  the  handbook)8  In  a  stable  atmosphere  Is  given  by: 


* 

3  1/3 

6  Fc 

JA 

r 

uyc2s 

M 

vc  /. 

Ye 

(A-65) 
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where 


U  ■  mean  wind  spn^d  (m/sec), 

Fc  =  continuous  buoyance  parameter 


gQc 

up.  C  T 
a  p  * 


Qc  ■  effective  heat  released  (cal/sec), 

Yc  ■  entrainment  coefficient  for  a  quasl-contlnuous  source  dimensionless 
Other  variables  as  defined  above. 

Briggs13  cites  a  value  of  0.5  for  yc  for  buoyant  plumes  such  as  those 
resulting  from  uncontrolled  fires, 

13.  CONCENTRATION  IN  AN  INVERSION  BREAKUP  FUMIGATION 


A  ground-level  Inversion  may  be  eliminated  by  the  upward  transfer  of 
heat  when  the  ground  Is  being  warmed  by  solar  radiation.  In  the  transient 
situation,  substances  that  have  been  emitted  Into  the  stable  layer  will  be 
mixed  vertically  as  they  are  reached  by  the  thermal  eddies.  As  a  result,  the 
ground  level  concentrations  can  Increase  over  what  would  be  expected  under 
either  stable  or  unstable  conditions.  This  process  has  been  called  fumigation. 

In  the  Workbook  of  Atmospheric  Dispersion  Estimates,  Turner*7  recom¬ 
mends  essentially  a  box  model  with  the  height  taken  as  the  height  of  release 
plus  2  slgma-Z.  He  further  suggests  that  the  cloud  width  be  Increased  by  a 
15-degree  angle  through  the  downward  transport. 


xF  - 


Q 


( A-66) 


XF  ■  the  peak  concentration  under  fumigation  conditions 

°yP  "  °y  +  H/8 
HX  -  H  +  20t 

ay  la  for  stable  conditions 

Other  parameters  are  as  defined  previously. 

14.  IGLOO  FIRE  MODEL,  M55  ROCKET 

The  most  complete  report  on  the  consequences  of  an  Igloo  fire  con¬ 
taining  M55  chemical  munitions  Is  given  In  ORG  Report  44. *8  The  reader  Is 
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advised  to  consult  this  report  for  an  understanding  of  the  many  aspects  of 
this  problem.  The  following  Is  a  tabulation  of  particulars  extracted  from 
this  report  that  may  be  useful  In  routine  downwind  hazard  calculations. 

14.1  GB  Fill. 

14.1.1  The  source  is  taken  as  the  fill  of  2.52  percent  of  the  rockets  stored. 

14.1.2  The  agent  Is  released  according  to  the  following  schedule: 


Time  Interval 

Source 

Cumulative  time 

(min) 

(X) 

(min) 

15 

91 

15 

5 

6 

20 

40 

3 

60 

14.2.1  VX  Fill. 

14.2.1  The  VX  source  Is  taken  as  0.164  percent  of  the  total  fill. 

14.2.2  This  source  Is  released  over  a  period  of  5  minutes. 

15.  PALLET  MODEL,  M55  ROCKET 

Data  on  sympathetic  detonation  within  a  pallet  of  M55  rockets  Is 
reported  In  AEO  Report  No.  24-77. 19  This  report  concluded  that  the  equivalent 
of  2  rockets  would  detonate,  end  the  contents  of  the  remaining  13  would  spill 
and  be  distributed  over  an  area  9  x  61  meters,  A  subsequent  analysis  by  CSL* 
Indicated  that  this  evaporative  source  could  be  approximated  as  a  normal  volume 
where  SXS  ■  0.83  m  and  SYS  ■  7.0  m. 

16.  SELECTION  OF  ATMOSPHERIC  STABILITY 

The  classification  scheme  for  atmospheric  stability  employed  In  sub¬ 
routine  PSST3  Is  based  on  a  system  proposed  by  Pasqu 111 . 20  The  system  was 
quantified  and  reduced  by  a  system  of  logical  decisions  by  Turner^  based  on 
the  elevation  angle  of  the  sun,  cloud  cover,  and  cloud  height.  These  parameters 
determine  a  net  radiation  Index  fnr  heating  of  the  surface  during  the  day  and 
for  cooling  at  night.  The  stability  class  Is  then  estimated  as  a  function  of 
wind  speed.  This  logic  Is  summarized  In  Tables  A-4  and  A-5. 

17.  DIFFUSION  PARAMETERS  IN  FOREST  TERRAIN 

The  diffusion  parameters  recovered  from  subroutine  WOODS  are  a  matter 
of  professional  judgment  based  on  a  body  of  field  data.  These  estimates  first 


i  * Analysis  done  by  6,  G.  Whltacre,  CRDEC,  In  1978  In  which  rocket  fragments  were 

;  traced  to  Infer  the  distribution  of  liquid  agent.  Unpublished  data. 

» 

i 
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appeared  In  a  GCA  Corporation  progress  report  for  January  1967.  The  author, 
Dr,  Harrison  E.  Cramer,  revised  these  estimates  In  April  of  that  year  at 
the  request  of  ORG.  The  values  were  recorded  In  a  Memorandum  for  Record, 

5  May  1967,  by  Mr.  Irving  Solomon  of  ORG.*  See  Table  A-6. 


Table  A-4.  Net  Radiation  Index 


16-7  <7>7<7<7>7 


Cloud  cover  (1/10) 
Cloud  height  (iooo  ft) 
Solar  altitude 
<  15° 

15-35° 

35-60° 


♦Night  is  defined  as  the  period  from  1  hour  before  sunset  to  1  hour 
after  sunrise. 


Table  A-b.  Pasqulll  Stabllllty  Category  as  a  Function 
of  Net  Radiation  Index  and  Wind  speed 


Wind  speed 
m/sec 


Nighr* 

~n 


,  N 

?t  pa 

3 

2 

A 

B 

B 

B 

B 

C 

B 

C 

C 

C 

C 

D 

C 

D 

D 

D 

'A  copy  oTtRTs  memorandum  is  on  file  in  the  Studies  and  Analysis  C'-Mce, 
vRDEC* 
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APPENDIX  B 


NOTES  ON  PROGRAM  CONSTRUCTION 


1.  INTRODUCTION 

The  following  Is  a  collection  of  notes  on  the  Internal  workings  of 
the  D2PC  program.  These  are  like  external  comment  cards  (on  paragraphs).  The 
normal  user  of  the  program  will  not  need  to  remember  all  of  this,  but  It  should 
be  useful  for  any  future  modifications. 

The  program  is  written  In  FORTRAN  77  and  was  originally  compiled  and 
tested  on  the  UNIVAC  1100/60  computer.  The  source  program  was  then  transferred 
to  an  IBM  compatible  Eagle  PC  and  recompiled  with  mlcrosoft  FORTRAN  3.3,  The 
only  changes  made  In  the  source  code  were  the  format  of  the  INCLUDE  statement 
In  MASTER  (see  Section  B-5  below)  and  the  addition  of  a  back  slash  (\)  to  line 
27  of  subroutine  DEF,  This  permits  keyboard  entries  to  be  displayed  on  the 
same  line  with  the  word  INPUT. 

2.  COMMON 

Communication  between  MASTER  and  the  subroutines  Is,  for  the  most 
part,  accomplished  through  a  block  of  unlcbeled  common  (107  words).  With  the 
expansion  of  the  ALL  statement  to  Include  all  Input  variables,  common  was 
extended  to  al1  of  the  subroutines  except  ERF,  WOODS,  UNT,  and  READA.  The 
other  subroutines  that  have  arguments  In  their  CALL  statements  (EVAP,  PLRS, 

STAB,  and  DEF)  employ  the  common  block  but  Identify  only  a  segment  of  the 
variable  names  In  each.  Of  course,  the  segment  In  each  subroutine  must  coincide 
with  the  position  In  MASTER,  This  Is  accomplished  by  Introducing  dummy  arrays 
before  and  after  the  segment  to  position  the  variable  of  Interest.  The  remaining 
values  are  exchanged  through  the  argument  list,  The  MASTER  and  subroutines  DDS, 
CDS,  and  QLIST  contain  the  complete  common  list. 

3.  THE  ALL  QUESTION 

Beyond  the  exchange  of  Information,  the  common  block  of  data  is  also 
used  by  MASTER  to  assign  values  to  the  variables  during  the  random  order  Input 
from  the  ALL  question.  This  Is  accomplished  through  a  parallel  array,  PNU, 
which  lists  the  three-letter  literal  name  of  each  variable  as  it  Is  known  In 
the  ALL  question.  The  PNU  array  corresponds  to  the  COMMON  block  beginning  with 
variable  PR(1)  and  ending  with  ID2. 

This  random  order  input  Is  accomplished  by  first  searching  the  PNU 
table  to  Identify  the  position  of  the  variable  name  and  then  storing  the  argument 
In  the  corresponding  position  In  COMMON.  The  variables  PR(1),  L0CT(1),  and 
IPR(l)  are  taken  as  the  reference  positions. 

There  are  several  complications  In  this  storage  process.  The  variable 
name  Is  always  alphabetic,  but  the  argument  can  be  real,  Integer,  or  alphanumeric. 
The  real  and  Integer  can  be  entered  through  the  free  format  available  In  FORTRAN, 
but  an  alphabetic  Input  In  the  data  field  Is  more  troublesome.  This  is  accom¬ 
plished  In  FORTRAN  77  by  reading  the  field,  Initially,  as  a  character  string  and 


then  rereading  this  string  with  different  formats.  This  created  another  problem 
In  that  the  rereading  statement  (where  the  string  variable  name  Is  given  as  the 
Input  channel)  would  not  accept  the  free  format  designation.  The  free  format 
Is  approximated  by  using  the  BN  (blank  null)  option  In  the  format;  this  permits 
free  positioning  within  the  field  specified,  but  each  variable  must  be  In  a  new 
field  as  specified.  Thus,  the  free  format  Is  limited  to  one  variable  per  Input. 
This  Is  acceptable  for  the  ALL  queitlon  since  the  first  field  Is  always  three 
alphanumeric  characters,  and  only  the  second  field  needs  to  be  In  free  format. 


Table  B-l.  Storage  Process 


Variable 

Literal  Program 

d 

““  Variable 

Literal  Program 

J 

1. 

TIM 

RP(1) 

1 

35. 

CRD 

CR 

1 

2. 

DLX 

OXT 

36. 

SLA 

SLA 

1 

3. 

NTS 

HT 

37. 

SLO 

SLO 

1 

4. 

HML 

HML 

38. 

CCT 

CC 

1 

5. 

sxs 

SXS 

39. 

CHT 

CH 

1 

6. 

SYS 

SYS 

40. 

SUN 

AE 

1 

7. 

SZS 

SZS 

41. 

PMM 

PMM 

1 

8. 

TMC 

TIVCH 

42. 

zzo 

ZO 

9. 

WND 

UT 

1 

43. 

LOC 

LOCT(i) 

1 

10. 

BRT 

BR 

44. 

SEA 

SEAT 

1 

11. 

SKF 

SF 

45. 

MUN 

MUNT 

1 

12. 

TMP 

TMP 

1 

46. 

AGN 

AGNT 

1 

13. 

AL.F 

ALFA 

47. 

REL 

REL 

1 

14. 

SYR 

SY1Q0 

48. 

STB 

MTC 

1 

15. 

BTA 

BETA 

49. 

SUR 

SUR 

1 

16. 

SZR 

SZ100 

50. 

WOO 

WT 

1 

17. 

SMH 

Z 

51. 

HLD 

18. 

REF 

RC 

52. 

RLS 

19. 

SEV 

V 

53. 

20. 

QQQ 

QS 

1 

54. 

IRT 

IPR(l) 

21. 

TEV 

TEVP 

1 

55. 

NDI 

ND 

22. 

ARE 

SAVP 

1 

56. 

0P0 

IPO 

23. 

LEN 

FL 

1 

57. 

2MC 

I2MC 

24. 

FMW 

FMW 

1 

58. 

IMA 

IMA 

25. 

FMV 

FMV 

I 

59. 

OPC 

IPC 

26. 

VAP 

VP 

1 

60. 

I  MM 

I  MM 

1 

27. 

BPT 

BP 

1 

61. 

IDD 

IDD 

1 

28. 

HST 

HS 

62. 

HRS 

IHR 

1 

29. 

DST 

OS 

63. 

NOV 

NOV 

30. 

TST 

TSC 

64. 

INP 

INP 

1 

31. 

VST 

VS 

65. 

MNR 

MRL 

32. 

RDE 

RDE 

66. 

NMU 

NMU 

1 

33. 

FRO 

P 

67 

NCI 

ND 

34. 

HRL 

HR 
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For  convenience,  this  storage  process  divides  the  PNU  table  Into 
three  segments.  Elements  1  through  42  are  Input  as  real  variables;  43  through 
53  are  alpha,  and  54  through  67  are  Integer,  The  Integer  portion  uses  variable 
IPR(l)  as  a  new  reference  point.  Table  B-l  lists  the  variable  names  as  Identified 
by  PNU ,  the  name  of  the  variable  as  It  appears  In  COMMON,  and  the  corresponding 
flags  In  the  J  table.  (The  J  table  Is  discussed  later  under  rescan). 


The  control  variables  (ALL,  STP,  RST,  RSN,  GTO,  etc.)  do  not  require 
storage  of  an  argument,  and  these  are  Intercepted  by  a  scan  against  PNUC  before 
the  scan  of  the  PNU  table. 


The  commands  hold  (HLO)  and  release  (RLS)  are  Identified  from  the  PNU 
table  to  determine  the  value  of  the  Index  I.  An  additional  scan  of  the  PNU  table 
Is  then  performed  with  the  argument  (PRT)  to  establish  which  variables  are  to  be 
flagged  for  hold.  This  generates  the  Index  II,  which  stores  or  clears  a  flag  In 
the  K  array. 


The  operation  of  the  program  rescan  In  successive  runs  was  discussed 
In  the  body  of  the  report.  The  mechanism  that  controls  this  rescan  Is  based  on 
the  sum  of  J(I),  which  Is  accumulated  with  each  entry  In  the  ALL  question. 

When  the  word  ALL  Is  given,  this  sum  Is  tested  and  If  greater  than  zero  the 
rescan  wll 1  occur, 


INDEX  NAMES 


All  of  the  multiple  choice  answers  that  are  read  In  questions  2,  3, 
4,  6,  8,  and  9  are  converted  to  Integer  Index  values  for  use  In  the  program 
logic.  Table  B-2  Identifies  the  variable  name  with  the  Index  name  for  each. 


Table  B-2.  Variable  and  Index  Names 


VarTaoTe 

Index 

LOC 

IL 

SEA 

IS 

MUN 

IMU 

AGN 

IA 

REL 

IR 

STB 

IM 

THE  INCLUDE  STATEMENT 


The  MASTER  program  contains  an  INCLUDE  (line  22).  The  operation  of 
this  statement  will  be  explained  to  help  the  user  develop  an  alternative  If  his 
system  does  not  permit  the  INCLUDE  statement. 


In  the  UNIVAC  version  of  this  program  the  statement  appears  as  INCLUDE 
HMLMDR.  Here  HMLMDR  is  a  FORTRAN  PROC  that  is  listed  at  the  end  of  the  program 
(Appendix  E).  In  operation,  the  PROC  is  included  at  compile  time  as  If  the 
statements  were  written  Into  the  program. 
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In  the  1100/60  system,  the  PROC  must  be  prepared  by  processing  with 
a  POP , F  processor  and  available  In  the  file  whenever  the  calling  program  Is  com¬ 
piled.  For  the  MICROSOFT  processor,  the  format  of  the  INCLUDE  statement  Is 
changed  to  $  INCLUDE :  ' HMLMDR . FOR '  with  the  dollar  sign  In  column  1. 

6.  INTERNAL  INDICATORS 

Internal  indicators  are  variables  that  are  assigned  values  within  a 
program  to  convey  information  to  another  part  In  the  program  or  to  remember  for 
a  later  time.  A  few  of  these  will  be  discussed  here  for  the  user's  (programmer's) 
Information, 

The  Indicator  IDEP  Is  used  by  MASTER  to  select  the  downwind  model  In 
subroutine  DDS.  A  value  of  -1  Indicates  that  the  Instantaneous  release  of  HD 
Is  requested.  This  will  cause  DDS  to  CALL  HD42,  which  will  compute  the  airborne 
source  and  assign  special  diffusion  parameters. 

IDEP  Is  assigned  a  value  of  1  when  the  Inhalation-deposition  model  based 
on  the  M55  rocket  Is  used.  Here  the  vapor  source  Is  taken  as  13  percent  of  the 
fill  weight,  and  the  downwind  dosage  at  each  distance  Is  converted  to  the  Intra- 
veneous  dose,  which  Is  then  added  to  the  percutaneous  dose  from  the  Impaction 
model.  IDEP  Is  assigned  a  value  of  2  for  the  M23  land  mine.  The  downwind 
hazard  calculation  for  the  M23  Is  based  on  the  percutaneous  dose  alone.  Both 
the  M55  and  M23  models  are  part  of  DDS. 

The  Indicator  I2MC  Is  the  Internal  equivalent  of  2MC  In  the  ALL 
statement  and  Is  used  to  control  the  2-mlnute  correction  In  DDS.  Normally  the 
2-mlnute  correction  Is  applied  to  GB  and  VX  vapor  at  levels  of  response  above 
"no  effects."  In  program  D2  the  D(l)  level  of  response  will  not  contain  the 
2-mlnute  correction  unless  specifically  Instructed,  In  normal  operation,  when 
the  response  dosages  are  drawn  from  the  tables  automatically,  the  "no  effects" 
value  Is  written  Into  D(l).  Then,  If  the  value  of  MNR  Is  set  to  zero,  the  DDS 
subroutine  will  change  I2MC  to  zero  after  the  distance  for  D(2)  has  been  computed, 
and  thus  drop  the  2-mlnute  correction  for  D(l). 

In  the  event  that  one  does  not  wish  I2MC  to  change  for  D(I),  a  hold 
can  be  placed  on  I2MC  (HLD  2MC)  In  the  ALL  question.  The  hold  flag  Is  stored 
In  the  K  table,  but  the  K  table  Is  not  available  to  subroutine  DDC.  Therefore, 
the  hold  signal  Is  transmitted  to  DDC  by  setting  the  value  of  I2MC  at  1  Instead 
of  2,  which  Is  the  usual  2-mlnute  correction  signal, 

The  K  table  Is  used  by  MASTER  to  remember  the  variables  that  have 
been  flagged  as  hold.  This  Is  a  67-element  table  that  corresponds  to  PNU,  A 
flag  can  be  set  for  any  variable  (In  ALL),  but  only  the  few  that  can  be  over¬ 
written  by  rescan  have  Inhibit  tests  Installed. 

Element  67  In  the  K  table  corresponds  to  NCI  In  the  PNU  list.  This 
element  Is  used  to  place  an  automatic  hold  on  NCI  when  IMA  Is  set  to  1,  2,  or 
3.  The  value  of  K(67)  Is  given  the  value  of  PRT  at  the  time  IMA  Is  Identified 
in  the  ALL  statement.  Then,  since  IMA  «  0  In  the  dosage  configuration,  this 
releases  the  hold  on  NCI  automatically,  The  D  table  In  COMMON  Is  used  to  store 
both  the  values  of  DI  and  Cl,  and  NDI  and  NCI  are  defined  within  the  program  as 
ND.  Thus,  a  hold  placed  on  either  NDI  or  NCI  will  prevent  the  table  look-up  of 
DI. 
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When  the  plume  rise  subroutine,  PLRS,  Is  called  by  specifying  releases 
STK,  STJ,  FLS,  or  FIR,  a  special  programming  problem  Is  created  by  permitting 
the  cloud  to  rise  with  downwind  distance  ( OPC  ■  2  or  3).  When  these  release 
modes  are  specified,  the  MASTER  calls  PLRS  with  the  argument  XI  set  to  zero. 

This  begins  a  process  In  PLRS  that  can  list  the  DHT  ■  f(x)  table  (OPC  ■  1  or  3) 

or  the  various  values  of  DHTMX,  which  Is  the  maximum  cloud  rise.  In  this  process, 

the  distance  for  maximum  rise  (XMX)  Is  stored,  and  the  stack  height  (HST)  Is 
added  to  DHTMX  and  stored  In  COMMON  as  HT.  This  Is  the  value  used  by  DOS  or 
CDS  If  CPC  Is  given  as  0  or  1.  If  OPC  Is  given  as  2  or  3,  this  maximum  height 

Is  listed  as  the  release  height  In  the  second  line  of  output  from  DDS  or  CDS, 

but  HT  Is  now  recalculated  for  each  downwind  distance  and  listed  In  the  output. 

To  control  the  Interchange  between  PLRS  and  DDS  or  CDS,  a  control 
Indicator,  IRTP,  Is  Initially  assigned  a  value  of  IRTP  ■  1  (or  IRTP  ■  0  when 
4  <  IR  <  9)  In  DDC  or  CDC.  This  first  controls  the  bypass  of  CALL  PLRS.  If 
PLRS  Is  called,  IRTP  Is  redefined  In  PLRS  as  -1  when  OPC  ■  2  or  3.  Then  as  x 
Increases  beyond  XMX,  the  value  of  IRTP  Is  changed  to  one.  This  now  bypasses 
the  call  to  PLRS.  IRTP  Is  also  used  In  the  logic  of  selecting  the  contour 
length  (or  hazard  distance)  to  a  specified  dosage.  Here  the  calculation  of 
downwind  distance  continues  one  cycle  beyond  the  height  where  the  maximum 
height  of  the  cloud  has  been  reached.  This  prevents  the  program  from  selecting 
the  hazard  distance  from  the  first  mode  of  the  blmodal  distribution,  which  can 
be  caused  by  the  rising  cloud. 

The  Indicator  IER  Is  used  In  the  Interpretation  of  question  15  to 
remember  that  there  was  an  error  on  the  Initial  reading  of  PRT.  After  PNUT  is 
Identified,  IER  causes  PRT  to  be  reread  as  an  alpha  field. 

The  variable  I RL  is  set  to  one  to  remember  that  the  dosages  of  interest 
have  been  drawn  from  the  tables  and  thus  that  the  Interpolated  distances  can  be 
labeled  on  output  (IX,  ND,  NE).  Values  that  are  Input,  with  NDI  are  not  labeled. 

The  Indicator  ISM  Is  set  to  one  When  the  command  SMD  Is  used  to 
Initiate  execution  of  DDS.  When  ISM  equals  one,  the  table  of  dosages  ( DS( K) ) 

Is  not  cleared  from  the  previous  run.  The  dosages  for  corresponding  values  of 
X  are  always  added  to  the  current  value  so  that  this  will  sum  the  dosages  from 
the  previous  run  (or  runs)  with  the  present  and  thus  accumulate  the  dosages  for 
multiple  releases. 

The  arguments  interchanged  with  subroutine  DEF  are  normally  the 
question  number,  IQ,  and  the  return  indicator,  IRT,  that  tells  the  calling 
subroutine  when  the  question  has  been  asked  (0  »  N,  1  ■  Y).  (Note  that  this 
Internal  IRT  is  different  from  the  IRT  in  the  control  commands.)  Many  variations 
are  used.  A  zero  value  for  IQ  causes  the  IQT  table  (which  remembers  which 
questions  have  been  asked)  to  be  cleared  to  zero;  a  negative  question  number 
clears  the  block  on  that  question  only.  An  IQ  value  greater  than  40  will  print 
the  options  and  definitions  for  the  question  defined  by  the  number  minus  40. 

An  lq  value  of  39  prints  the  Information  table  when  NOV  equals  3. 

When  IQ  equals  40,  a  negative  value  of  IRT  will  print  one  of  the  four 
tables  requested  with  the  TAB  command.  A  positive  value  of  IRT  will  list  the 
options  and  definitions  requested  for  the  question  requested  by  a  DSP  command. 

An  lq  value  of  40  and  an  IRT  of  zero  prints  the  table  definition  requested  by 
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three  question  marks.  These  controls  are  set  up  In  the  MASTER  In  response  to 
commands  TAB,  ???,  and  DSP. 


'•  % 


When  TMC  (time  to  met  change)  Is  assigned  a  value  In  the  ALL  question, 
the  program  converts  this  time  Into  the  distance  (XCH)  the  cloud  would  travel  at 
the  specified  wind  speed.  If  the  distance  to  minimum  response  exceeds  XCH,  the 
program  will  stop  with  the  questions: 


INPUT:  STB 

INPUT:  WND,  HML *  TMC. 


This  Is  a  request  for  the  new  met  conditions.  The  new  value  of  TMC  Is 
now  the  length  of  the  next  Interval  In  minutes.  Internally,  the  Interplay 
between  MASTER  and  DOS  Is  controlled  by  TIVCH*  which  transmits  the  value  of  TMC 
to  DDS,  and  the  Indicator,  IMTCH ,  which  controls  the  special  return  to  MASTER. 


ADDITIONAL  CAPABILITIES 


There  Is  a  data  base  for  stability  categories  I  and  N.  These  are 
recognized  by  MASTER,  and  values  for  the  diffusion  parameters  are  given  In  DDS 
and  CDS.  These  parameters  are  Intended  for  Inversion  and  neutral  stability  In 
urban  areas.  These  values  were  taken  from  a  1957  Fort  Detrick  Report*  and 
further  study  Is  planned. 


An  additional  capability  Is  a  provision  to  compute  the  cloud  width 
with  distance  (OPO  ■  3).  The  user  Is  cautioned  In  following  these  estimates  of 
width  In  safety  applications.  The  width  Is  measured  from  the  pattern  centroid, 
but  the  centroid  Is  subject  to  shifts  with  wind  direction,  terrain,  and  obstruc- 
tlons.  Thus  the  width  Is  useful  for  area  calculations,  but  a  safety  corridor 
should  be  wider. 


The  commands  RUN  and  PEEK  are  Intended  for  deep  debugging.  The  RUN 
command  will  cause  the  program  to  execute  the  downwind  hazard  estimate  without 
considering  If  the  program  should  first  rescan.  The  PEEK  command  will  cause 
the  program  to  display  the  current  values  In  COMMON.  The  PEEK  options  are  as 
fol lows . 


PEEK  1  List  QT( ) ,  TWL() 

2  List  D I ( )  ,  D I L ( ) 

3  List  42  real  values 

4  List  11  alphanumeric  codes 

5  List  21  Integer  values 


6  List  D-A  generated  by  vapor  depletion  run 


Options  3,  4,  and  5  will  display  the  three-character  code  for  each  variable 
(TAB  4)  with  the  current  numeric  value. 


rCML  2  5  $4.  Semi-Annual  Report,  April -September  1954,  Contract  # D A- 18-064- CML- 
2564,  Department  of  Chemistry,  Stanford  University.  UNCLASSIFIED  Report. 
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8.  SUBROUTINE  UNT 

The  units  conversion  capability  provided  by  subroutine  UNT  Is  designed 
to  be  Invisible  to  the  user  when  conventional  metric  units  (as  specified  In  the 
questions)  are  used.  That  Is,  the  user  needs  to  Input  no  special  code  to  iden¬ 
tify  these  units.  Other  units,  however,  must  be  identified  so  that  the  program 
can  Initiate  the  conversion. 

The  conversion  process  Is  initiated  when  a  read  error  Is  created  In 
one  of  the  questions  requesting  numeric  input.  This  error  occurs  when  alpha 
characters  are  found  In  the  free  format  portion  normally  used  to  Input  numeric 
Information,  At  this  point,  the  r  ugram  rereads  the  last  Input,  now  extracting 
the  first  two  characters  as  the  conversion  code.  If  this  Is  successful,  the 
code  Is  searched  with  the  literal  codes  in  table  MNE  to  Identify  the  proper 
conversion  factor  from  table  UC.  Then,  if  the  units  are  recognlzea  as  a  volume, 
the  density  f>om  table  0N25  Is  Included.  If  the  code  Is  not  understood  or  the 
reread  contains  an  error,  the  program  clears  the  Input  block,  lists  the  unit 
codes,  and  loops  back  to  repeat  the  question, 

9.  SUBROUTINE  READA 

Subroutine  READA  Is  provided  to  extract  the  units  conversion  code  from 
numeric  Inputs  and  call  UNT.  The  arguments  are  defined  as  follows: 

UM  Is  the  unit  code 

IA  Is  the  agent  Index 

PRT  Is  the  argument  being  converted 

IQ  Is  the  question  number 

IRT  Is  the  return  message  to  repeat. 

The  argument  Is  processed  as  PRT  but  returned  to  the  calling  program 
as  the  fourth  argument  In  the  call  statement. 

10.  SUBROUTINE  QLIST 

The  text  of  the  numbered  questions  now  come  from  subroutine  QLIST, 

In  operation  the  program  calls  DEF  with  the  question  number.  DEF  determines 
If  the  question  has  been  asked  and  if  not  prints  options  and  definitions  as 
directed  by  the  value  of  NOV.  It  then  calls  QLIST,  transmitting  the  value  of 
IRT.  If  the  question  has  not  been  asked,  the  question  and  code  are  printed. 

On  rescan  when  the  question  has  been  asked,  QLIST  also  recovers  the  current 
value  of  the  parameters  from  COMMON  and  displays  this  with  the  question. 

The  text  of  the  questions  is  stored  as  array  QTAB  and  the  three- 
character  parameter  codes  are  listed  In  a  parallel  array,  SYM.  When  IRT  ■  1, 
the  text  of  the  question  and  the  parameter  code' Indicated  by  IQ  are  displayed. 
When  IRT  ■  1,  the  question  and  code  are  followed  by  the  current  value  of  the 
parameter.  This  Is  accomplished  through  array  IQR,  which  Identifies  the 
location  of  each  parameter  In  COMMON  In  terms  of  the  question  number.  Another 
array,  I QM ,  specifies  how  many  values  are  associated  with  each  question. 

The  use  of  arrays  PR(1),  LOCT(l),  and  IPR(l)  as  markers  in  the 
common  table  Is  recognized  as  something  of  a  tour  de  force  In  this  program. 
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Equivalence  arrays  would  have  been  easier  to  follow  (or  explain),  It  should 
also  be  noted  that  placing  the  character  strings  In  COMMON  is  not  standard  for 
the  UNIVAC  FORTRAN  '77  and  It  will  complain,  but  It  still  works. 

11.  SUMMING  D( X ) 

A  two-column  table,  DS  (dimensioned  51,2)  Is  defined  in  subroutine 
DDS  to  sum  dosages  at  corresponding  distances  from  multiple  releases.  The 
current  (last  generated)  dosages  are  written  In  level  1  with  each  execution. 

Level  1  may  be  summed  Into  level  2  with  the  command  SMD.  If  the  command  SMP 
Is  given  before  the  last  ALL,  the  next  downwind  distance  Is  distance  based  on 
the  last  Sum  (level  2)  and  the  current  DP  (level  1).  The  Sum  column  Is  cleared 
with  the  command  SMC. 

These  operations  are  performed  In  subroutine  DDS  and  are  controlled 
from  MASTER  by  Indicator  ISM.  ISM  Is  set  to  zero  for  SMC,  to  1  for  SMD,  and  2 
for  SMP.  Otherwise,  ISM  equals  3. 

These  control  commands  are  Intercepted  In  the  PNUC  loop  In  HDS3 
(line  250).  The  commands  SMC  and  SMD  set  the  value  of  ISM  In  HDS3  and  then 
call  DDS.  In  DDS  the  value  of  ISM  causes  L'S(I,2)  to  be  cleared  or  summed  from 
DS(  1,1).  Control  then  returns  to  the  ALL  loop  In  HDS3.  The  command  SMP  sets 
ISM  to  2,  which  will  cause  DS ( 1 , 2 )  to  be  added  to  DP  at  each  X  In  the  next 
execution  of  DDS.  ISM  Is  set  to  3  each  time  the  ALL  loop  Is  entered, 

12.  VAPOR  DEPLETION 

The  vapor  depletion  model  that  Is  described  In  Appendix  C  Is  Implemented 
In  the  program  by  subroutine  VDPL.  This  subroutine  Is  divided  Into  four  parts 
which  are  (In  effect)  entered  separately.  The  first  computes  the  deposition 
velocity,  DEVP,  as  a  function  of  wind  speed,  stability,  and  roughness  length. 

The  second  entry  estimates  the  peak  dosage  (or  concentration)  and 
establishes  the  table  of  dosages  over  which  the  area  will  be  Integrated,  The 
lower  limit  for  this  distribution  Is  taken  as  one-tenth  of  the  minimum  dosage 
of  Interest  specific  In  the  main  program.  This  dosage-area  table  can  be  output 
at  the  end  of  the  program  with  a  PEEK  6  command  from  the  ALL  question.  The 
output  option,  OPO  4,  will  cause  the  contour  half-widths  for  this  distribution 
to  be  listed  and  then  the  dosage-area  table. 

The  third  entry  Is  called  for  each  downwind  distance,  and  the  area 
coverage  Is  accumulated  as  a  function  of  X.  With  each  call  a  new  estimate  of 
the  function  of  the  source  still  airborne  (SDEPL)  is  made  and  the  adjusted  peak 
value  Is  returned.  Two  peak  values  (DP  and  DPA)  are  transmitted  to  the  subroutine 
to  accommodate  the  2-mlnute  correction  for  GB  and  VX.  (The  area  distribution 
Is  based  on  the  noncorrected  value.)  The  other  parameter  values  (DX,  DXA,  XS, 
and  XCH)  are  provided  to  adjust  the  area  Integration  when  a  stability  change  Is 
called  from  the  master  program. 

The  fourth  entry  point  lists  the  dosage-area  distribution.  This  Is 
printed  by  a  PEEK  6  or  at  the  end  of  a  run  with  OPO  4. 
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The  UNI'/ AC  version  of  this  program  uses  the  different  entry  points. 

The  PC  version  enters  at  the  top  and  then  branches  to  the  section  as  directed 
by  the  indication  INT.  The  function  of  the  source  remaining  airborne  (SDEPL) 

Is  printed  for  each  distance  when  0P0  Is  greater  than  zero  and  before  each 
estimated  distance  when  0P0  equals  zero. 

The  area  Is  accumulated  by  summing  the  rectangular  strings  defined  by 
delta-X,  or  DX,  and  the  contour  half-width.  This  is  rathe**  crude  and  can  be 
Improved  by  decreasing  DX  from  the  default  value  of  10.  This  can  be  changed  by 
assigning  a  new  value  to  DLX  *n  the  ALL  question;  this  value  will  be  augmented 
by  tne  program  according  to  the  following  rules: 

If  (X  >  DX*10.)  DX  -  DX*10. 

with  Xf+i  =  Xi  +  DX 

except  Xi  -  1 

and  X2  »  DX 

Thus,  DLX  should  be  selected  with  the  progression  it  will  produce  In  mind.  A 
value  of  two  Is  a  reasonable  alternative. 

13.  DATA  TABLES  IN  D2PC 

The  following  list  Identifies  the  data  tables  for  each  subroutine  In 
program  D2PC.  These  variables  are  selected  with  the  expectations  that  some 
users  may  wish  to  add  to  the  present  data  sets  or  substitute  cil.jrs  In  these 
tables.  The  dimensions  of  each  table  are  listed,  and  each  c.n;ii  i  :.ent  Is  specified 
for  cross  reference.  The  parameters  marked  with  an  asterisk  would  require  logic 
changes  In  the  program  If  these  are  altered.  Those  marked  with  two  asterisks 
would  require  logic  changes  If  certain  Items  (numeric  position)  were  changed. 

HDS3 

HMLT  (6,  4,  11)  Height  of  the  mixing  layer  (m) 

6  Stability  categories  A  ♦  F 

4  Seasons  winter  tc  fall 

11  Sites  specified 

QF  (10,  3)  Item  fill  weights  (mg) 

10  Items 
3  Fills 

SYSM  (10)  Lateral  source  sigma  for  each  Item  (m) 

SZSM  (10)  Vertical  source  sigma  for  each  item  (m) 

PMMT  (12)  Average  atmospheric  pressure  ac  each  site  (mm  Hg) 

01  (3,  17)  Dosage  response  levels  (mg-min/m3) 

3  Levels  (ascending  dosage) 

17  Substances 
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FMUT  (17)  Molecular  weight  of  substances 
*RELT  (10)  Methods  of  release 


M 


•*| 


m 


A 

.<*1 


y3 


M 


,.v 

% 


**AGN  (17)  Substance  codes  (2  characters)  (first  three  have  complex  logic 
control ) 

*PNUC  (16)  Control  codes  (3  characters) 

*PNU  (77)  Parameter  codes  (3  characters) 

*J  (67)  Rescan  indicator  for  parameters 
MUN  (10)  Item  codes 

*  1ST  (11)  Stability  codes  (1  character) 

LOC  (12)  Site  codes  (3  characters) 

SEA  (4)  Season  codes  (3  characters) 


AGN  (15)  Substance  codes  (2  characters) 

FMW  (16)  Molecular  weight 

FMV  (16)  Molecular  volume  16th  space  for  read-in 

PP  (16)  Boiling  (°K) 


A  (15) 
B  (15) 
C  (15) 


Constants  for  vapor  pressure  of  substances 


FP  (15)  Freezing  point  (°K) 


ALFAT  (6)  Alfa  for  Pasqulll  Category  (A  ♦  F) 

BETAT  (6)  Beta  for  Pasqulll  Category  (A  ♦  F) 

SY100I  (6)  Reference  sigma  Y  at  100  m  for  Instantaneous  release  (m) 

SY100T  (6)  Reference  sigma  Y  at  100  m  for  continuous  release  (m) 

SZ100T  (6)  Reference  sigma  Z  at  100  m  (m) 

"^Revision  will  require  program  logic  changes. 

**Certa1n  Items  (In  numeric  order)  will  require  logic  changes. 
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*SY100C  (2,  3)  Reference  sigma  Y  at  100  m  In  urban  areas  (m) 

2  Stability  (neutral  and  stable) 

3  Wind  speed  classes 


* 5Z20C  (2,  3)  Reference  sigma  Z  at  20  m  In  urban  areas  (m) 

2  Stability  (neutral  and  stable) 

3  Wind  speed  classes 

*BETAC  (2,  3)  Beta  for  urban  areas 

2  Stability  (neutral  and  stable) 

3  Wind  speed  classes 

*$T  (U)  Stability  codes  (A-F,  N,  I,  U,  S,  W) 

RL  (3)  Response  level  labels 


UNT 

UMT  (25)  Input  unit  code  (2  characters) 

**UC  (25)  Conversion  constant  (4th  Is  °F  *  °C) 

DN25  (18)  Density  of  substances  at  25  °C  (18th  Is  space  for  read-in) 
MNE  (34)  Standard  names  of  units 
IK  (25)  Selects  output  for  units  Input 


MSI 

IQR  (36) 
IQM  (36) 
QTAB  (37) 
SYM  (37) 


Locates  variable  In  common  list  by  questions 

Specifies  number  of  variables  by  question 

Question  list  (30  characters)  (37th  extension  of  question  29) 

Symbol  for  variable  by  question 


VDPL  ; 

> 

PT  (6,  3)  PT  from  model  by  stability  and  surface 
6  By  stability  (A  F)  j 

3  By  surface  type  (flat,  rolling,  sea) 

ITT  (12)  Surface  type  by  site 

FKMS  (6)  kms  from  model  by  stability  (A  ♦  F) 

ZOT  (12)  Roughness  length  by  site  (cm) 

*$ee  footnote  on  page  70. 
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VAPOR  DEPLETION 


1.  INTRODUCTION 

After  agent  Is  released  from  chemical  munitions*  fine  aerosols  and 
gases  transport  with  the  wind  and  are  eventually  removed  from  the  atmosphere 
by  deposition  upon  many  types  of  surfaces  (water*  soil*  vegetation*  etc.)  with 
possibly  some  chemical  changes  occurring  with  time.  Atmospheric  turbulence* 
Brownian  motion.  Impaction,  and  sorption  are  some  of  the  processes  causing  agent 
to  be  dropped  from  the  cloud  and  retained  on  surfaces. 

The  most  common  mathematical  techniques  for  consideration  of  the  agent 
fall-out  mechanisms  and  surface  deposition  are  called  the  "source  depletion" 
and  "partial  reflection"  models. 1  These  models  apply  to  very  fine  aerosols  and 
vapors  of  approximately  10  ym  or  less,  In  diameter.  The  partial  reflection 
approach  seems  to  perform  well  near  the  source  and  Is  fairly  easy  to  use. 

However,  the  "source  depletion"  technique  has  been  shown  to  perform  better  for 
far  downwind  distances,  For  this  reason,  the  source  depletion  course  was 
followed  for  use  In  our  general  chemical  hazard  prediction  model. 

Chamberlain2  and  other  Investigators  have  presented  the  mathematical 
derivation  of  a  depletion  factor  as  a  function  of  downwind  distance  for  various 
continuously  emitting  plume  type  sources.  However,  as  far  as  can  be  determined, 
source  depletion  models  that  characterize  "Instantaneous"  type  source  releases, 
such  as  would  be  expected  for  chemical  projectiles  and  rockets,  have  never  been 
reported  In  the  open  literature.  Therefore,  an  attempt  was  made  to  adapt  the 
"continuous  source"  approach  to  an  Instantaneous  release.  However*  this  did 
not  work  out  because  the  numerical  integration  became  quite  messy  and  was  not 
followed  through. 

2.  EMPIRICAL  DEPLETION  MODEL 

Still  faced  with  a  need  for  an  instantaneous  depletion  technique,  an 
alternate  empirical  approach  was  proposed.  This  proposed  technique  and 
dosage  requires  calculation  of  an  effective  deposition  velocity  (vh)  and 
dosage  and/or  concentration  area  coverage  as  a  function  of  downwind  distance. 

The  vh  values  Is  easy  enough  to  calculate,  and  the  current  D2  program  Is 
readily  adaptable  to  computing  dosage/concentration  contours.  Hence,  this  simple 
empirical  approach  was  chosen  for  Incorporation  Into  the  Chemical  Hazard  Predic¬ 
tion  Methodology  and  is  presented  below. 

For  a  surface  that  has  perfect  retention3  of  the  material  reaching  it, 
the  vh  value  can  be  determined  in  terms  of  the  wind-speed  profile,  friction 
velocity,  and  surface  roughness  length  parameter  as  follows: 

Using  the  wind  speed  profile  Investigated  by  R.  Frost4  and  represented 
by  a  power  law  function  across  stability  conditions  as  follows: 

u(z)  -  u(2).  .  (—  ) 

2 


75 


where 


u(2)  Is  the  2-meter  wind  speed 
X  Is  the  Frost  power  parameter 


and 


Using  the  following  relationship,  compute  the  friction  velocity 
parameters  (u*) 


-  X  •  Km  •  u{2)  (f) 


Is  * 


where 


*  generalized  stability  parameter  with  the  following  valuta 


Stability  K 

B 

C 

D 

E 

P 

*  0.9 

0.8 

0.6 

0.4 

0.2 

0.05 

For  near  surface  estimates,  z  Is  set  equal  to  0.01  meters  since 
u*  f  0  at  z  »  0. 

Now 

Compute  the  surface  deposition  velocity5  ( vd )  using  the  following 

formula 


again 


using  z  ■  0.01  for  near  surface  estimates. 

This  equation  Is  correct  only  for  vapor  adsorption  material.  The  B*1  parameter 
(the  dimensionless  reciprocal  Stanton  number)  can  be  computed  as  follows: 

b"1  ■  0.06  (196  •  u*  •  z  )  0,45 

*  o' 


where 


u*  Is  computed  as  stated  above  and  zo  is  the  conventional  surface 
roughness  length. 

The  B“1  equation  above  was  deduced  from  the  following  formulas 

k  b""1  -r  0.2  (30R  )  0,45  *  °°‘8 

«* 
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with  the  following  assumptions, 

k  (Von  Kantian's  constant)  equals  0.4,  the 
Schmidt  number  a  equals  0.076. 

Using  u#z 

Reynold*  number  R  *  — — 

•*  v 

where 

v  Is  the  kinematic  viscosity  of  air  and  using  a  value  of  0.153  cm2/sec,  then 
the  following  equation  1$  obtained 


This  reduces  to  the  equation, 

B  *  ■  0.06  (196  an  atated  above. 

Now  that  the  technique  for  calculating  the  vd  parameter  has  been 
presented,  formulation  of  the  source  depletion  factor  can  be  expressed  as  follows: 

The  factor  for  the  diminishing  amount  of  material  remaining  airborne  Is 
defined  as: 

Q(x) 

Q(o) 

where 

Q(o)  Is  the  Initial  amount  of  agent  released  in  mg  for  dosage.  Then  the  amount 
of  material  deposited  within  a  dosage  contour  class  can  be  estimated  by  using 
the  following  functional  relationship, 


where 

D ( I ) 1 s  are  the  dosage  contour  levels  In  ascending  order,  and  AR(I)'s  are  the 
corresponding  accumulative  areas  as  a  function  of  downwind  dlstance-x  for  these 
dosage  contours, 

vd  is  the  vapor  deposition  velocity  as  calculated  above  In  meters  per  minute. 
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The  resulting  source  strength  factor  as  a  function  of  downwind  distance 
x  can  be  calculated  for  use  In  the  Gaussian  equations  as  follows: 


.  fl-(P)  ~  CP(x) 

Q(o)  Q  (o) 

then,  from  the  above  equation,  the  axial  peak  dosage  can  be  adjusted  for  vapor 
depletion  for  the  next  x-dlstance  as  follows: 


DP(X+1)  -  DP(x+l)  • 


The  above  equations  were  presented  using  dosage  terms.  When  the  user  asks  for 
concentration  estimates  from  the  program,  then  the  program  logic  has  the  following 
changes . 


Q(o)  becomes  a  rate  of  release}  the  D(I)'s  are  In  terms  of  concentration, 
mg/mln;  and  the  AR(I)'s  are  the  corresponding  areas  for  those  concentration 
contours.  Then,  the  axial  peak  concentration  Is  adjusted  as  a  function  of 
downwind  distance  -x  as 


CP(x+l)  -  CP(x+l) 


The  rest  of  the  model  constants  and  relationships  used  In  calculation  of  the 
vd  parameter  remain  the  same  as  for  dosage. 


The  estimate  of  the  fraction  of  material  remaining  airborne 

Q(O) 

as  a  function  of  distance  Is  based  upon  the  amount  of  area  accumulated  across 
dosage  contour  classes.  Hence,  this  method  Is  sensitive  to  the  number  of 
contour  levels  chosen  (ND)  and  the  Incrementation  step  of  the  x-dlstance  In 
representing  cloud  coverage.  These  parameter  values  are  Internally  controlled 
by  the  D2PC  program  and  are  designed  to  provide  reasonable  results. 

We  feel  this  approach  to  be  a  reasonable  alternative  for  lack  of  a 
more  vigorous  mathematical  form.  The  advantage  Is  that  It  Is  not  limited  In 
use.  It  applies  equally  well  to  dosage  or  concentration  predictions  for  partial 
or  total  dosage  times  and  across  all  source  release  heights  and  types  (point, 
volume,  continuous  emitting). 

3.  MODEL  VALIDATION 

No  attempt  has  been  made  to  verify  this  theory  with  actual  field 
experimentation.  However,  the  program  has  been  run  to  compare  Its  predicted 
depletion  factors  against  estimates  reported  In  the  literature?  and  to  demon¬ 
strate  the  expected  change  as  a  function  of  stability  with  downwind  distance. 
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Table  C-l  provides  the  vertical  and  horizontal  reference  distance  standard 
deviations  and  expansion  exponents  representing  three  Investigators.  The 
Hansen  and  D2PCA  diffusion  parameters  are  taken  directly  from  the  referenced 
reports;  however,  what  are  Identified,  as  Pasqulll  parameters  are  rather  coarse 
straight-line  estimates  through  the  curves  provided  In  reference  7.  Table  C-2 
shows  the  comparison  of  the  three  diffusion  sets  (Pasqulll,  Hansen,  D2PCA)  to 
the  "SLADE"  depletion  values  extracted  from  continuous  source  depletion  curves 
on  page  205  of  reference  7.  For  the  Hansen  results,  a  surface  roughness  value 
of  z0  ■  10  cm  set  was  used.  To  be  compatible  with  the  other  two,  a  z0  «  1  cm 
set  of  values  for  oziqq  and  B  should  have  been  used.  Then  the  results  for 
Hansen  would  have  followed  the  D2PCA  predictions  much  closer  than  the  Pasqulll 
values  In  Table  C-2. 

4.  CONCLUSIONS 

Some  conclusions  that  can  be  drawn  from  Table  C-2  are: 

-  Using  this  empirical  depletion  technique,  the  D2PCA  diffusion 
parameters  continue  to  keep  the  amount  of  airborne  vapor  up  closer  to  the 
"SLADE"  estimates  for  stability  categories  A,  B,  and  C.  However,  for  stability 
categories  D,  E,  and  F,  D2PCA,  Hansen  and  Pasqulll  continue  to  hold  the  amount 
of  airborne  vapor  up  when  "SLADE"  shows  It  should  be  falling  off  significantly. 

-  Overall,  for  the  first  one-thousand  meters  all  three  sets  of  dif¬ 
fusion  parameter  do  equally  well  In  comparing  with  the  "SLADE"  estimates. 

.  For  hazard  analysis  studies.  It  appears  that  this  technique  can  be 
used  to  improve  the  predictions  and  provide  safe  conservative  estimates  across 
stability  categories  and  potential  diffusion  values. 
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Table  C-l.  Diffusion  Parameters  Values  Used  to  Compute  the 
Results  of  Table  C-2 


Stability 

category 

Invaatigatoi 

°yl00 

a 

02lOO 

8 

A 

Paaquill* 

25.2 

0.90 

18.0 

1.63 

Banian** 

25.2 

0.90 

17.6 

0.90 

02 PC At 

27.0 

1.0 

14.0 

1.4 

a 

Paaquill 

20.2 

0.90 

11.3 

1.191 

Banian 

20.2 

0.90 

11.3 

0.85 

D2PCA 

19.0 

1.0 

11.0 

1.0 

c 

Paaquill 

13.9 

0.90 

8.9 

0.852 

Banian 

13.9 

0.90 

8.9 

0.81 

D2PCA 

12.5 

1.0 

7.5 

0.90 

0 

Paaquill 

9.02 

0.90 

6.5 

0.682 

Banian 

9.02 

0.90 

6.5 

0.76 

D2PCA 

5.0 

0.90 

4.5 

0.85 

a 

Paaquill 

6.43 

0.90 

4.0 

0.664 

Hana an 

6.43 

0.90 

4.0 

0.73 

02PCA 

6.1 

0.80 

3.5 

0.80 

r 

Paiqulll 

4.50 

0.90 

2.6 

0.633 

Banian 

4.50 

0.90 

2.6 

0.67 

D2PCA 

4.0 

0.7 

2.5 

0.75 

*These  estimates  are  straight-1 Ine  estimates  through  the  curves,7 
Translated  to  reference  distance  of  100  meters.8 
*Taken  from  the  earlier  D2PC  report. 
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Table  C-2.  Source  Depletion  Fraction  Q(x)/Q(o)  for  a  Wind  Speed  U?  of 
1  m/ sec  and  v<j  of  0.01  m/sec  CONC,  Values  for  a  Continuous 
Source  (Surface  Release) 


lability 

itegory 


investigator/ 
Diffusion  category 


Slade* 
Pasqull  1** 
Hansent 
D2PCAtt 

Slade 
Pasqull  1 
Hansen 
D2PCA 

Slade 
Pasqull  1 
Hansen 
D2PCA 

Slade 
Pasqull  1 
Hansen 
D2PCA 

Slade 
Pasqull 1 
Hansen 
D2PCA 

Slade 
Pasqull  I 
Hansen 
D2PCA 


(stance  from  source  meters] 
10*  lp3  iq4 


.0005 

.06 

.06 

.06 


^Reference  7,  curves  on  p  205 
Reference  7,  diffusion  curves  on  pp  408-409 
^Reference  8,  p  7 

''Dispersion  parameters  as  used  In  CROC  Chemical  Hazard  Prediction 
Program-D2PCA. 
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APPENDIX  D 


Atmospheric  stabll ity 
(low  1 evel ) 


Breathing  rate 
(liters/minute) 

Broken  (cloud  cover) 
Concentration  (mg/m3) 
Peak  concentration 

Deposition  density 
(mg/m2) 


Dosage  (mg/mln/m3) 


GLOSSARY 


This  Is  a  relative  classification  of  the  mixing  of 
the  air  near  the  Mirface.  This  mixing  has  been 
measured  as  a  standard  deviation  of  wind  direction 
changes  (ca,  a g)  or,  In  a  more  Indirect  way, 
as  the  difference  In  air  temperature  at  two  reference 
heights.  (Temperature  gradient  between  1/2  and 
4  meters,)  An  even  more  generalized  concept  Is  used 
In  this  report  based  on  the  Pasqulll  stability 
categories.  In  this  system,  the  heating  or  cooling 
of  the  surface  is  used  to  establish  a  net  radiation 
Index.  These  are  then  tabulated  against  wlndspeed 
to  form  a  table  of  comparable  mixing  categories. 

For  the  Pasqulll  system  these  are  identified  as 
A  through  F,  going  from  very  unstable  to  stable  with 
category  D  taken  as  neutral. 

As  used  In  these  models,  the  breathing  rate  Is  the 
average  volume  of  air  aspirated  per  minute.  The 
rate  Is  usually  stated  In  liters  per  minute,  but 
must  be  converted  to  m3/m1n  when  multiplied  by  dosage 
to  provide  consistent  units. 

This  Is  a  description  of  a  sky  cover  of  .6  to  .9 
(5/8  to  7/8) 

This  Is  the  quantity  of  a  vapor  or  aerosol  suspended 
In  a  volume  of  air. 

This  term  is  used  to  describe  the  maximum  concentra¬ 
tion  at  a  given  distance  that  will  result  from  a 
variable  passing  field. 

This  Is  the  density  of  liquid  or  particulate  con¬ 
taminate  that  is  deposited  on  the  ground,  it  Is 
employed  as  an  assessment  Index  and  has  been  related 
to  the  percutaneous  dose.  In  the  current  form  of  this 
relation,  the  percutaneous  dose  equals  1,62  times  the 
deposition  density  raised  to  the  0.8  power.  This 
relation  has  been  derived  from  the  short-range  fallout 
from  explosive  munitions. 

Dosage  Is  the  Integration  of  concentration  In  mg/m3 
and  time  In  minutes,  also  referred  to  as  Ct.  This 
Is  a  mathematical  concept  that  makes  a  useful 
exposure  Index  to  vapors  and  small  aerosols  that  can 
be  absorbed  by  Inhalation.  When  the  dosage  Is 
multiplied  by  a  breathing  rate  and  retention 
efficiency,  the  result  Is  an  Inhaled  dose. 
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Total  dosage 
Partial  dosage 


Dose  (mg) 

Inhaled  dose 

Intravenous  dose 
Percutaneous  dose 

Downwind  length  (m) 

Evaporation  time 
(min) 

Inhalation-deposition 


Mixing  layer  (m) 


This  Is  the  concentration  time  Integral  accumulated 
over  the  time  of  passage  of  the  total  cloud. 

If  an  evasive  action  Is  possible,  such  as  donning 
a  mask  or  moving  out  of  the  path  of  the  cloud,  then 
the  exposure  is  to  a  partial  dosage  that  Is  cal¬ 
culated  from  the  time  of  release  to  the  time  the 
evasive  action  1$  complete.  Thus,  If  the  evasive 
action  Is  accomplished  In  time  t,  the  partial 
dosage:  D(t)  ■  0  for  x>ut  +  3  SX,  where  SX  Is  the 
standard  deviation  of  the  downwind  dimension  of 
the  cloud,  and  u  Is  the  wlndspeed. 


Dose  Is  the  quantity  of  a  substance  Ingested  Into 
the  body  or  placed  on  the  body  surface  or  clothing. 

This  Is  the  quantity  absorbed  by  the  body  by 
Inhalation. 


This  Is  the  amount  reaching  the  blood  stream. 

This  Is  the  amount  applied  to  clothing  or  skin, 
or  both. 

This  Is  the  length  In  the  downwind  direction  across 
the  surface  of  the  spill.  Like  the  evaporation 
time,  this  1$  assumed  to  be  constant  over  the  period 
of  evaporation. 


This  Is  the  time  from  the  beginning  of  a  spill  to 
the  total  containment  or  neutralization  of  the  agent. 
The  model  employed  In  SEVP2  assumes  that  the  rate 
of  release  Is  constant  over  this  period  and  thus  Is 
a  safe-sided  estimate  of  the  total  amount  released. 


When  a  substance  with  low  volatility  Is  released  by 
explosion,  both  vapor  and  aerosol  are  produced.  If 
the  aerosol  Impacts  on  clothing  or  the  skin  and  Is 
not  removed,  a  fraction  will  penetrate  the  skin  and 
add  to  the  dose  that  the  body  may  have  accumulated 
from  Inhalation,  These  are  additive  at  the  Intra¬ 
venous  level  and  thus  the  Intravenous  dose,  Dj ,  Is 
the  response  Index. 

This  layer  Is  the  region  above  the  surface  where 
mixing  tends  to  approach  uniformity.  If  travel 
proceeds  for  a  sufficient  distance,  the  vertical 
distribution  tends  to  become  uniform  within  this 
layer.  Two  forms  of  the  mixing  layer  are  con¬ 
sidered  In  this  report.  The  best  defined  of  these 
Is  formed  by  an  elevated  temperature  Inversion 
that  forms  a  cap  to  vertical  diffusion.  This  cap 
Is  modeled  as  a  reflective  surface  that  would 
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Overcast 
(cloud  cover) 

Rawlnsonde 

(radiosonde) 


Scattered 
(cloud  cover) 

Skin  penetration 
factor 


Source  sigmas  (m) 


Source  strength 
(mg) 


Source  time  (min) 


Subsidence  Inversion 


produce  multiple  reflections  to  approach  this 
uniformity.  The  other  form  of  the  mixing  boundary 
Is  the  result  of  the  inertial  forces  acting  on  the 
eddies  formed  by  the  surface  friction  layer.  This 
has  been  extended  from  the  surface  Itself  to  objects 
on  the  surface  and  even  the  terrain  which  would 
affect  this  mixing.  The  same  model  Is  used  for 
predictive  purposes.  Thus,  this  second  category  Is 
achieved  by  entering  a  value  that  will  approximate 
the  Inertial  layer.  (See  Table  5.) 

This  Is  the  description  of  a  sky  cover  of  1,0  (8/8). 


This  Is  balloon-borne  Instrumentation  that  Is 
capable  of  measuring  and  transmitting  the  wind  speed 
and  direction,  temperature,  pressure,  and  humidity 
aloft  during  Its  ascension;  analysis  of  this  Infor¬ 
mation  can  provide  stability  characteristics  for 
various  layers  of  the  atmosphere. 

This  Is  a  description  of  a  sky  cover  of  .1  to  .5 
(1/8  to  4/8). 

This  factor  Is  the  ratio  of  Intravenous  dose  to 
percutaneous  dose.  The  skin  penetration  factor  Is 
defined  for  a  specific  type  of  exposure  and  a 
specific  type  of  clothing. 

These  are  characteristic  dimensions  of  the  source 
cloud.  These  are  stated  for  the  three  directions 
X,Y,  and  Z  and  are  expressed  as  the  standard 
deviations  (SXS,  SYS,  SZS).  Through  the  diluting 
process  of  diffusion,  the  cloud  Is  approximated  as 
a  Gaussian  distribution  moving  with  the  wind  and 
expanding. 

This  Is  the  quantity  airborne.  This  release  can 
occur  Instantaneously  as  with  an  explosive  release 
or  over  a  period  of  time  as  from  a  spill. 

This  Is  the  period  of  time  over  which  the  substance 
Is  emitted  Into  the  air.  Zero  Is  specified  for  an 
Instantaneous  release  and  Infinity  (1E36)  for  a 
continuous  release. 

This  Is  a  temperature  Inversion  produced  by  the 
warming  of  a  layer  of  descending  air  and  most  fre¬ 
quently  associated  with  a  large  high-pressure  system. 
The  Inversion  will  have  Its  base  at  some  point 
above  the  ground  and  Is  enhanced  by  vertical  mixing 
In  the  layer  of  air  below.  This  type  of  Inversion 
Is  often  very  persistent  and  frequently  produces 
conditions  requiring  air  pollution  advisories. 
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Surface  Inversion 
(radiation  Inversion) 


Time  after  release 
(min) 


This  Is  a  temperature  Inversion  that  has  the  earth's 
surface  as  Its  base.  It  Is  an  increase  of  temperature 
with  height  beginning  at  the  ground,  a  very  stable 
layer  of  air  In  contact  with  the  ground,  a  phenome¬ 
non  that  Is  established  during  nighttime  hours  and 
enhanced  by  clear  skies  and  light  winds, 

A  large  component  of  the  dosage  computed  by  program 
HD42  Is  derived  from  the  evaporation  of  the  liquid 
splash.  Thus,  the  dosage  at  the  time  of  assessment 
Is  dependent  on  the  amount  that  has  evaporated  to 
that  time.  This  adjustment  Is  contained  within  the 
model . 


Two-mlnute  correction 


■vV 

•fy 

0 

V, 


It  has  been  shown  that  the  dosage  of  GB  or  VX  vapor 
required  to  produce  a  given  physiological  effect 
(with  a  constant  breathing  rate)  Is  dependent  on  the 
time  of  accumulation.  Thus,  the  total  dosage  Is  not 
an  adequate  Index  for  long  exposures  (>2  min). 

Since  the  time  of  exposure  Is  dependent.on  the  size 
of  the  cloud,  which  changes  with  downwind  distance, 
a  correction  has  been  developed  for  the  diffusion 
model  that  converts  the  accumulated  dosage  at  any 
point  to  the  equivalent  2-mlnute  dosage  and  thus 
permits  the  2-mlnute  value  to  be  used  as  an  Index. 
The  2-mlnute  correction  Is  used  for  GB  and  VX  vapor 
except  when  the  no-effects  (or  lesser  physiological 
effects)  level  Is  being  considered. 
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APPENDIX  E 

PROGRAM  LISTING 


HDS3.FOR 


C  HAZARD  DISTANCE  /  MASTER  PROGRAM  /  C.G.WHITACRE 

C  ADAPTED  TO  MS-FORTRAN  BY  J.H.GRINER  III  AND  RICHaRD  L.  ZUM  BRUNNEN 
CHARACTER*'1 1  IST,MTC,AAl , ABl 
CHARACTER*:  AGN,UM,AGNT,AA2,WT 

CHARACTER*3  PNU, PNUT , PNUC , MUN ,MUNT , REL , RELT , LOC , LOCT , SEA, SEAT , 
1PRTT.SUR 
CHARACTER* 12  ADH 
CHARACTER *20  APRT 

COMMON  NQ1,QT(6) ,TWL<6) ,D<10) ,DL(10> 

COMMON  PR ( 1 ) , DXT , XT , HML ,SXS,SYS,SZS,TIVCH,UT,BR1SFI TMP , ALFA , S Y 1 00 , 
1 BETA, SZ. 100, Z,RC,V,QS 
COMMON  TEVP , SA, FL , FMW , PMV , VP , BP 
COMMON  HS , DS , TSC , VS , RDE , FP , HR , CR 
COMMON  SLA,SLO,CC,CH,AE,PMM,ZO 

COMMON  LOCT(l) .SEAT, HUNT, ACNT.AAl, REL, MTC.AA2.SUR.WT, ABl, ADH, ADR, 
1AD2 

COMMON  IPR  Cl) ,ND, IPO, I2MC, IMA, IPC, IMM, IDD, IHR ,NOV, INP,MRL,NMU, TD2, 
1IDEP, IMTCH, IM, IR , 1L, IRL, ISM, 1VD,K33 ,K42 

DIMENSION  MUN (10) ,QF(10,3) ,SYSM(10) ,SZSM(10) , AGN(lb) ,D1 (3,17) 
DIMENSION  FMWT (17) , IST(ll) , LOC (12) ,SEA(4) ,HMLT (6 , 4, 1 1) ,PMMT(12) , 
1PNU (77) , J (67) ,K(67) , RELT (10) , PNUC (16) ,QTS (6) 

SINCLUDE: ' A : HMLMDR 1 . FOR 1 

DATA  RELT/ ' INS ' , ' EVP ' , ' SEM ' , ' VAR ' , ' STK ' , ' STJ ' , ' FLS ’ , 1  FIR ' , ' IGL ' , 
l'EVS'/ 

DATA  AGN/'GBWXVHDVACVCGVCKVGAVCDVGFVHIVM', 

l'HT' , 'LL' , ' HY ' , 'UD' , ' BZ * , 'DM' , 'NA'/ 

DATA  PNUC/’ ALL' , * STP ' , 1 RST ' , ' INP ' , ' GTO ' , ' RSN ' , ' NQI ' , ' SMC 1 , 'SMD' , 
l'SMP1, 'RUN', 'TAB' ,'???', 'DSP', 'PEE', 'VDP 7 
DATA  PNU/ ' TIM' , 'DLX ' , 'HTS ' , 'HML' , ' SXS' , ' SYS ' , ' SZS ' , ' TMC ' , ' WND' , 


2'TEV  ,  'ARE' ,  ' 

3 ' RDE' , ' FRO ' , ' HRL ' , ' 


4'LOC  ,  'SEA'  ,  'J 


LEN ' , ' FMW 1 , ' 
HRL' , 'CRD' , ' 


6 ' MNR ' , ' NMU ' , ' 

7 ' K33 ' , 'K42 V 


NCI ' , ' IDE' , ' 


SYR'  , 

'  BTA' , 

'  SZR ' 

,  ' SMH ' 

'REF' 

'SEV' , 

’  OQQ ' 

FMV '  , 

VAP ' , 

'BPT' 

, ' HST ' 

'  DST ' 

' TST  * , 

'VST' 

SLA'  , 

'  SLO ' , 

'  CCT ' 

, ' CHT ' 

'SUN' 

'PMM' , 

'ZZO' 

REL'  , 

'STB' , 

'  SUR ' 

, ' WOO ' 

'  HLD' 

' RLS ' , 

'AD3' 

IMA'  , 

OPC  , 

'IMM' 

, 'IDD' 

'HRS' 

' NOV ' , 

'INP' 

IMT '  , 

1M ' , 

IR' 

IL' 

'IRL' 

'ISM', 

'  I VD ' 

DATA  J/l, 7*0, 1,2*0, 1,7*0, 8*1, 8*0, 6*1, 0,8*1, 9*0, 3*1, 0,1, 0,1,0/ 


DATA  MIJN/ 

'105' 

1  ,  1 155'  , ' 81N ' 

, '500' , 

'750' , 

'M55 ' , 

,  '525' , 

'4.27 

DATA  IST/ 

'A',' 

B1  ,  '  C ' ,  *  D ' ,  ' 

E '  ,  '  F ' , 

*  N '  , '  I 

Vu’, 

,  '  S  ' ,  '  W 

DATA  LOC/ 

1 AAD 1 

, ' DPG ' , ' EWA ' 

i  1 JHI ' , 

'  LBG' , 

'NAP' , 

,  ’ PBA ' , 

l'UAD' , 'EUR', 'NDF'/ 

DATA  SEA/ 'WIN' , ' SPR ' , 'SUM' , ' FAL ' / 
DATA  13,14,15/42,11,24/ 

WRITE  (VO  '  . 

WRITE  (V)  '  \  DOWN 

WRITE  (*,*)  '  - 

DO  2  >1,74 
QT (I ) -0. 

CONTINUE 


\  DOWNWIND  HAZARD  PROGRAM  D2PC  V 


Ail 


a 


V.! 


I- 


si  ©0*1*1,11 

32  LOCT(I)-' 

53  3  CONTINUE 

54  DO  4  1-1,22 

55  IPR  (I)-O 

56  4  CONTINUE 

57  TIVCH-1.E36 

58  DXT-10. 

59  Z-Q. 

60  NMU-1 

61  rNMU-1. 

62  RC-1. 

63  V-0. 

64  BR-25. 

65  SF-.022 

66  DO  5  >1,67 

67  K(l)-0 

68  5  CONTINUE 

69  ND-0 

70  CALL  DEF  (O.IRT) 

71  C  1.  NOVICE  LEVEL 

72  WRITE  (*,*)  '  TYPE  ?  FOR  DEFINITIONS' 

73  6  CALL  DEF  (1,IRT> 

74  IF  (IRT.EQ.O)  READ  (*, ' (BN, 15) ' ,ERR-10)  NOV 

75  IF  (N0V.GT.2)  CALL  DEF  (39, IRT) 

76  IF  (NOV.GT. (-1))  GO  TO  7 

77  CALL  DEF (80,  IRT) 

78  READ  <* , 93) LOCT (1 ) , SEAT ,MUNT , AGNT , REL , MTC , US 

79  7  UT-US 

80  C  2.  LOCATION 

81  CALL  DEF  (2, IRT) 

82  IF  (IRT.EQ.O)  READ  (V(A3)')  LOCT(l) 

83  DO  8  IL-1,12 

84  IF  (LOCT(l) .EQ.LOC(IL))  GO  TO  11 

85  8  CONTINUE 

86  WRITE  (*,9) 

87  9  FORMAT  ('  LOCATION  NOT  DEFINED') 

88  CALL  DEF  (42, IRT) 

89  GO  TO  7 

90  10  CALL  DEF  (41, IRT) 

91  GO  TO  6 

92  C  3.  SEASON 

93  11  IF  (IL.EQ.12)  GO  TO  14 

94  CALL  DEF  (3, IRT) 

95  IF  (IRT.EQ.O)  READ  (\'<A3)')  SEAT 

96  DO  12  IS—  1 ,4 

97  IF  (SEAT , EQ, SEA(IS) )  GO  TO  13 

98  12  CONTINUE 

99  CALL  DEF  (43, IRT) 

100  GO  TO  11 

101  13  IF  (K (41 ) .EQ.O.AND. 1L.NE. 12)  PMM-PMMT (IL) 

102  IF  (IL.NE.12)  GO  TO  15 

103  C  4.  HEIGHT  OF  MIXING  LAYER 

104  14  CALL  READA  (4, IRT, IA.HML) 

105  IF  (IRT.LT.O)  GO  TO  14 
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I 


I 


V 

I 

I 

4, 


106 

107 

13  , 

iDsr-o  — ----- . - .  — . 

ip  (k(S).eq.o)  ht-0. 

108 

IP  (K(57) .EQ.O)  I2KC-0 

109 

INQ-0 

110 

IMTCH-0 

111 

C 

5.  MUNITION  TYPE 

112 

16 

CALL  DEF  (5, IRT) 

113 

IF  (IRT. EQ.O)  READ  (*,'(A3)')  HUNT 

114 

IF  (MUNT.NE. '???')  GO  TO  17 

US 

CALL  DEF  (45, IRT) 

116 

GO  TO  16 

117 

17 

DO  18  IMU-1,10 

IF  (HUNT . EQ . MUN ( IHU) )  GO  TO  19 

118 

119 

18 

CONTINUE 

120 

INQ-1 

121 

C 

6.  AGENT  TYPE 

122 

19 

CALL  DEF  (6, IRT) 

123 

IF  (IRT. EQ.O)  READ  (V(A2)')  AGNT 

124 

IF  (AGNT.NE. '??')  GO  TO  20 

125 

CALL  DEF  (46, IRT) 

126 

GO  TO  19 

127 

20 

DO  21  IA‘1,18 

128 

IF  (AGNT.EQ.AGN(IA))  GO  TO  22 

129 

21 

CONTINUE 

130 

IA-18 

131 

C 

8.  RELEASE  TYPE 

132 

22 

CALL  DEF  (8, IRT) 

133 

IF  (IRT. EQ.O)  READ  (V(A3)')  REL 

134 

IF  (REL. NE. '777')  GO  TO  23 

135 

CALL  DEF  (48, IRT) 

136 

GO  TO  22 

137 

23 

DO  24  IR-1,10 

138 

IF  (RELT(IR) . EQ.REL)  00  TO  25 

139 

24 

CONTINUE 

140 

WRITE  (*,*)  '  RELEASE  NOT  DEFINED' 

141 

CALL  DEF  (48, IRT) 

142 

GO  TO  22 

143 

C 

9.  STABILITY  TYPE 

144 

25 

CALL  DEF  (9, IRT) 

145 

IF  (IRT. EQ.O)  READ  (V(Al)')  MTC 

146 

IF  (MTC.NE. ' 7 ')  GO  TO  26 

147 

CALL  DEF  (49, IRT) 

148 

GO  TO  25 

149 

26 

DO  27  IM- 1,11 

IF  (MTC.EQ. IST(IM))  GO  TO  28 

150 

151 

27 

CONTINUE 

152 

WRITE  (*,*)  '  STABILITY  NOT  DEFINED' 

153 

CALL  DEF  (49, IRT) 

154 

GO  TO  25 

155 

28 

IF  (IMTCH.EQ.1)  GO  TO  29 

156 

C 

10.  W1NDSPEED 

157 

CALL  READA  (10, IRT, 1A, US) 

158 

IF  (IRT.LT.O)  GO  TO  28 

159 

29 

UT-US 

160 

IF  (IM. EQ. 10)  CALL  STAB  (US, IM, IL, IMM, IDD) 
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161 

162 

163 

C 

164 

165 

166 

30 

167 

168 

169 

170 

171 

172 

173 

31 

174 

173 

176 

177 

32 

178 

179 

33 

180 

34 

181 

182 

35 

183 

C 

184 

36 

185 

186 

187 

37 

188 

189 

38 

190 

191 

39 

192 

40 

193 

41 

194 

195 

196 

C 

197 

42 

198 

43 

199 

200 

201 

44 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

45 

214 

215 

46 

It  (IK.IQ.il)  CALL  HOODS  (UT , ALFA ,  S Y 100 .BETA, SZ 1 00, WT) 

IF  (IM.NE.9)  00  TO  30 

11.  ALF,SYR,BTA,SZK 
CALL  DBF  (11 i IRT) 

IF  (IRT.EQ.O)  READ  (*,*)  ALFA.SYIOO.BETA.SZIOO 
IF  (IMTCH.EQ.l)  GO  TO  83 
IF  (IA.EQ.18)  GO  TO  34 
IF  (K (24) .EQ.O)  FMW-FMWT(IA) 

IF  (IA. LE.2.AND.K(57) ,EQ.O)  I2MC-2-K(57) 

IF  (K(55) - EQ.1.0R.K(67) .GT.O)  GO  TO  32 

DO  31  1-1,3 

D(I)»D1(I,1A) 

CONTINUE 

ND-3 

IRL-1 

IF  (K(65) .EQ.O)  MRL-0 
IF  (IA.EQ.2.AND.REL.EQ. 1  INS')  GO  TO  34 
WRITE  (*,33)  (D(I) ,1-1, ND) 

FORMAT  ('  DI-',10F8.1) 

IF  (IR.LT.4.0R. IR.EQ. 10)  NQI-1 

CO  TO  (33,35,48,48,43,43,43,43,93,33) ,  1R 

IF  (INQ.EQ.O)  GO  TO  37 

7.  SPILL  OR  AIHBORNE  SOURCE 

CALL  READA  (7, IRT, IA.QS) 

IF  (IRT.LT.O)  GO  TO  36 
GO  TO  40 

IF  (IA.GT.3)  GO  TO  38 

IF  (QF(IMU,IA) .GT.O.)  GO  TO  39 

WRITE  (*,*)  '  MUNITION-AGENT  NOT  DEFINED' 

GO  TO  36 

IF  (K(20).EQ.0)  QS-QFdMU, IA) 

QT  (1)"QS*FNMU 

IF  ((IR.EQ. 1 . AND. IA. EQ.3)  .OR . IR . EQ. 2. OR . IR , EQ. 10)  WRITE  (*,42) 
IF  (IR.NE.l)  GO  TO  43 

IF  (IA.EQ.2.0R. IA.GT.3.0R. 1NQ. EQ. 1)  GO  TO  44 

12.  TEMPERATURE 
FORMAT  (5X, 'SURFACE') 

IF  (IR.EQ. 9)  GO  TO  48 
CALL  READA  (12, IRT, IA.TMP) 

IF  (IRT.LT.O)  GO  TO  41 

IF  (IR.GT. 2. AND.IR.LT. 10)  GO  TO  48 
IF  (IR.EQ. 2. OR. IR.EQ. 10)  CO  TO  51 
TWL(l) " . 08 

IF  (K(6) .EQ.O. ANC. INQ.EQ.O)  SYS-SYSM(IMU) 

IF  (K(7) . EQ.O. AND. INQ.EQ.O)  SZS-SZSM(IMU) 

IF  (K. (5)  .EQ.O. AND.  INQ.EQ.O)  SXS-SYS 
IF  (IA.EQ.2)  GO  TO  46 
IF  (IA. NE. 1)  GO  TO  32 
IF  (INQ.EQ.l)  GO  TO  3? 

IF  (QF(IMU, 1) .GT.4.3E7)  GO  TO  45 
QT  (1) “QT  (1) * (.5+ (, 00782*TMP) ) 

GO  TO  52 

QT(1)»QT(1)*(.5-+(.0022*TMP)) 

GO  TO  52 
1DEP-1 
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216  D(l)-.44 

217  D(2)-1.76 

218  D(3)-4. 

219  WRITE  (*,47)  D(l)  ,D(2)  ,D(3) 

220  47  FORMAT  ('  EDI-'3F5.2) 

221  IF  (IMU.NE.9)  GO  TO  52 

222  IDEP-2 

223  GO  TO  52 

224  C  13.  NQI.QO.QTO  OR  Q,QT 

225  48  CALL  DEF  (13.IRT) 

226  IF  (IRT.EQ.l)  GO  TO  49 

227  IF  (IR.NE.3)  READ  (*,*)  NQI, (QTS(I) ,TWL<I) ,1-1, NQI) 

228  IF  (IR.EQ.3)  READ  (*,*)  QTS(l) ,TWL(1) 

229  49  DO  50  I-l.NQI 

230  QT(I)-QTS(I)*FNMU 

231  50  CONTINUE 

232  GO  TO  52 

233  51  IF  (IR.EQ.2)  CALL  EVAP  (AGNT,QT(1) ,PMM,UT,TMP,TWL(1) ,SUR, IL) 

234  IF  (IR.EQ.10)  CALL  EVAP (AGNT,QT(1) ,PMM, . 01 ,TMP, TWL(l) , SUR,IL) 

235  SXS-FL/3. 

236  SYS-SA/(FL*3.) 

237  S2S-.1 

238  52  IF  (IM.GT.6.AND. IL.NE. 12.AND.K(4) , NE. 1)  HML-HMLT(4, IS, IL) 

239  IF  (IM.LE.6.AND. IL.NE. 12.AND.XC4) .NE. 1)  HML-HMLT(IM. IS, IL) 

240  53  ISM-0 

241  54  ISM-3 

242  IF  (HKL.EQ.O.)  WRITE  (*,55) 

243  55  FORMAT  ('  DEFINE  HML ' ) 

244  WRITE  (*,56) 

245  56  FORMAT  ('  ALL  OTHER  INPUT’) 

246  57  IER-1 

247  READ  (*, ' (A3, 1X.A20) ' )  PNUT.APRT 

248  READ  (APRT, 1 (BN.F20.0) ' .ERR-59)  PRT 

249  IER-0 

250  DO  58  1-1,16 

251  IF  (PNUT.EQ.PNUC(I))  GO  TO  75 

252  58  CONTINUE 

253  C 

254  59  DO  66  1-1,67 

255  IF  (PNUT.NE.PNU(I))  GO  TO  66 

256  IF  (I . LT. 43.0R. I .GT.53)  GO  TO  62 

257  READ  (APRT, ' (A3) ' )  PRTT 

258  IF  (I.LT.51.0R.I.GT.52)  GO  TO  63 

259  DO  60  11-1,67 

260  IF  (PRTT.EQ.PNU(II))  GO  TO  61 

261  60  CONTINUE 

262  61  K (I I) —52- I 

263  IF  (II.EQ.57.AND. I2MC.NE.0)  I2MC-I-50 

264  GO  TO  57 

265  62  IF  (IER.EQ.O)  GO  TO  63 

266  READ  (APRT , ’ (a2 , EN, F18 . 0) ' , ERR-54)  UM.PRT 

267  CALL  UNT  (UM,IA,PRT) 

268  63  IF  (I . LT. 43)  PR(I)-PRT 

269  IF  (I , GT. 42. AND. I . LT. 53)  LOCT (1-42) -PRTT 

270  IF  (I.GT.53)  IPR  (I-53)-PRT 
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271 

IF  U.EQ.66)  PNMU-PRT 

272 

J$M«JSM+J(I) 

271 

IF  (I.EQ.55.0R. I .EQ.67)  GO  TO  68 

274 

IF  (I.EQ.58)  K(67)-PR? 

275 

IF  (I. EQ. 58. AKD.PRT.GT.O. AND.PRT.LT. 4)  WRITE  (*,64) 

276 

64 

FORMAT  ('  DEFINE  NCI') 

277 

IF  (I.EQ.9)  US-UT 

278 

IF  (I.EQ.47.AND.PRTT.FQ.  'SEM'  .OR.PRTT.EQ.  'VAR')  CALL  DEF  (-1.5, IRT) 

279 

IF  (I . EQ. 20. AND. IR.GT.2)  WRITE  (*,65) 

280 

65 

FORMAT  ('  DEFINE  NQI') 

281 

GO  TO  57 

282 

66 

CONTINUE 

283 

WRITE  (*,67) 

284 

67 

FORMAT  ('  SYM  NOT  FOUND') 

285 

GO  TO  54 

286 

68 

IF  (IMA.EQ.O)  WRITE  (*,69) 

287 

69 

FORMAT  ('  INPUT:  DIOS') 

288 

IF  (IMA.EQ.O)  GO  TO  71 

289 

WRITE  (*,70) 

290 

70 

FORMAT  ('  INPUTS  Cl  OS') 

291 

ND-PRT 

292 

71 

READ  (*,*>  (D(I),I-1,ND) 

293 

MRL-0 

294 

IAL-0 

295 

GO  TO  54 

296 

72 

NQI-PRT 

297 

WRITE  (*,73) 

298 

73 

FORMAT  ('  INPUT:  Q()(MG),  TQO(MIN)') 

299 

READ  (*,*)  (QT(I) , TWL(I) ,1*1, NQI) 

300 

DO  74  I-l.NQI 

301 

QTS(I)-QT(I) 

302 

74 

CONTINUE 

303 

GO  TO  54 

304 

75 

NIQ- (-PRT) 

305 

IF  (I.EQ.13)  NIQ-0 

306 

IF  (I.EQ.14)  NIQ-PRT 

307 

IF  (I.GT.11.AND.I.LT.15)  CALL  DEF(40,NIQ) 

308 

IF  (I.EQ.16)  IVD-PRT 

309 

IF  (I.EQ.4.0R.I.EQ.5)  CALL  DEF  (NIQ, IRT) 

310 

GO  TO  (77,89,1,59,6,7,72,76,76,76,78,54,54,54,90,57),  I 

311 

76 

ISM-I-8 

312 

IF  (I.EQ.10)  GO  TO  57 

313 

CALL  DDS 

314 

GO  TO  54 

315 

77 

IF  (JSM.GT.O)  GO  TO  7 

316 

78 

IF  (ND.GT.O)  GO  TO  80 

317 

IF  (IMA.EQ.O)  WRITE  (*,79) 

318 

79 

FORMAT  0  DEFINE  NDI ') 

319 

IF  (IMA.CT.O)  WRITE  (*,64) 

320 

GO  TO  57 

321 

80 

IF  (IHA.NE.2.0R. IA.NE. 18)  GO  TO  81 

322 

C 

14.  MOLECULAR  WEIGHT 

323 

CALL  DEF  (14, IRT) 

324 

IF  (IRT.EQ.O)  READ  (*,*)  FMW 

325 

81 

IF  ((FNMU-NMU) .GT.O.)  GO  TO  96 
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326  WRITE  (*,82)  NMU,MUNT,AGNT,REL,UT, TMP,L0CT(1) ,SEAT,MTC 

327  82  FORMAT  (//I5, *  MUN: \A3,2X, 'ACN: ’ ,A2,2x, 'REL: ' ,A3,2X, 'WND-' ,F4. 1, 

328  1 ' (M/S) ' ,2X,  *TMP-\F4. 1 , ’ (C) ' ,2X,a3, ,A3, IX, 'STB: ' ,Al) 

329  98  IF  (IA.EQ.  3.  AND.  IR.EQ.  1)  IDEP— 1 

330  83  IF  (IR.LE.4.0R. 1R.GT.8)  GO  TO  84 

331  CALL  PLRS  (UT.TMP, PMM, IL, IM, IR,0. ,HT,KML, IPC, IRTP) 

332  84  IF  (HT.GT.HML)  WRITE  (*,85) 

333  85  FORMAT  ('  HEIGHT  OF  RELEASE  IS  GREATER  THAN  MIXING  LAVER') 

334  IF  (QT(l).EQ.O.)  WRITE  (*,86) 

335  86  FORMAT ('  THE  SOURCE  STRENGTH  IS  SET  AT  ZERO') 

336  IF  (UT.EQ.O.)  WRITE  (*,88) 

337  IF  (HML.EQ.O. .OR. HT.GT.HML. OR. QT(1) .EQ.O. .OR. UT.EQ.O.)  GO  TO  54 

338  IF  (IVD.EQ. 1 .AND, IL.EQ. 12)  GO  TO  91 

339  IF  (IDEP.EQ.-1 .AND. IM.EQ. 11)  GO  TO  99 

340  IF  (IVD.EQ. 1. AND. IM.GT. 6)  GO  TC  94 

341  92  K33  -  K(33) 

342  K42  -  K(42) 

343  IF  (IMA. EQ.O)  CALL  DDS 

344  IF  (IMA.GT.O)  CALL  CDS 

345  IF  (IMTCH.EQ. 1)  GO  TO  87 

346  IF  (IPR(l) .EQ.O)  GO  TO  53 

347  CALL  DEF  ( (-IPR (1)) , IRT) 

348  GO  TO  7 

349  87  WRITE  (*,*)  '  INPUT:  STB* 

350  READ  (* , ' (Al) ' )  MTC 

351  WRITE(*,*)'  INPUT:  WND,  HML,  TMC' 

352  READ  (*,*)  US,HML,TIVCH 

353  GO  TO  26 

354  88  FORMAT  ('  DEFINE  WND') 

355  90  IF  (PRT.EQ.l.)  WRITE(*. '  (1P2F.10.3)  ' )  (QT(I)  ,TWL(I) ,  >1 ,6) 

356  IF  (PRT.EQ.2.)  WRIT£(V  (IP2E10.3) ')  (D(I).DL(I), 1-1,10) 

357  IF  (PRT.EQ.3.)  WRITE(*. ' (2(A5, 1PE10.3)) ') 

350  $(PNU(I)  ,PR(I)  ,  1-1,13) 

359  IF  (PRT.EQ.4.)  WRITE (*,' (A5,A4) ') 

360  $(PNU(I+42),L0CT (I), 1-1,14) 

361  IF  (PRT.EQ.5.)  WRITE (*, ' (2 (a5 , 16) ) ' ) 

362  $(PNU(I+53),IPR(l), 1-1,15) 

363  C  THE  FOLLOWING  CALL  IS  A  DUMMY  CALL  THE  ONLY  IMPORTAIN  VARIABLE  IS 

364  C  LAST  ONE  (4) . 

365  IF  (PRT.EQ.6)  CALL  VDPL(DD,DD, ID, ID, ID, ID,DD,DD,DD,DD,DD,DD, 

366  1DD,DD,DD,DD,DD,DD,DD,4) 

367  GO  TO  54 

368  C  29.  FROST  PROFILE  EXP  AND  ROUGHNESS  LENGTH 

369  91  CALL  DEF (29, IRT) 

370  IF  (IRT. EQ.O)  READ(*,*)  FP.ZO 

371  GO  TO  92 

372  93  FORMAT (A3, IX, A3 , IX, A3, IX , a2 , IX, A3 , IX, Al , 1X,BN, F10.0) 

373  94  WRITE  (V)  '  VAPOR  DEPLETION  ONLY  DEFINED  FOR  STABILITIES  A-F' 

374  GO  TO  53 

375  95  CALL  IGLO(QTS, TWL ,NQI , IMU, IA, IR) 

376  IF  (IR.EQ. 9)  GO  TO  53 

377  GO  TO  49 

378  96  WRITE(*,97)  FNMU, HUNT, AGNT,REL,UT,TMP,L0CT(1) .SEAT, MTC 

379  97  FORMAT (//F5. 2, 1  MUN : ' , a3 , 2X , ' AGN : ' , A2 , 2X , ' REL : ' , A3 , 2X , 1 WND- : 1 , 

380  $F4. 1,  1  (M/S)  2X,  ' TMP- ' , F4. 1 , 1  (C)  '  ,2X,A3,  '-'  ,A3,  IX,  'STB:  '  ,Al) 
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k: 


I 


381 

CO  TO  98 

382 

99 

WRITE  (*,*) 

383 

GO  TO  53 

384 

89 

STOP 

385 

END 

INSTANTANEOUS  RELEASE  OF  HO  IN  HOODS  NOT  DEFINED' 
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21 
22 
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24 
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26 

27 

28 

29 

30 
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C  EVAPORATION  FROM  A  PUDDLE  W/AREA  W/STILL  AIR  /CGW 
SUBROUTINE  EVAP  (AGNT.QT, PMM.U, TC, TS , SUR, IL) 

COMMON  EDM (52)  , QS , TEVP , SA , FL , FMWT , FMVT , VP , BPT , ED2  (50) 

CHARACTER *3  SUR 
CHARACTERS  AGN , AGNT 

DIMENSION  AGN (25) , FMW (25) , FMV (25) , BP (25) , A (26) , B (26) , C (26) , FP (26) 
DATA  AGN/'GBWXVHDVACVCCVCKVCAVGD',  'GFVHIVHS', 

1 ' HT ' , ' LL ' , ' HY ' , ' UD ' , ' QL ' , ' DF ' , ' DC ' , 1 TC 1 , ' PR ' , ' IP ' , ' ZS ' , ' KB ' , 
l'DM', 'DM'/ 

DATA  FMW/140. 1,267. 4, 159. 1,27. 02, 98. 92, 61. 48, 162. 18, 182. 18, 180. 2, 
1170.08,204.54,189.4,207.35,32.05,60.1,235.3,100.0,132.9,119.0. 
179. 1,60. 09, 46. 07, 145. 7, 0.,0./ 

DATA  FMV/150. 3, 342. 2, 149. 7, 39. 6, 70. 4, 51. 4, 188., 211. 4, 196. 8, 184. 3, 

1202. 8. 150..  130. 1.34. 5.81. 7. 332. 37. 81. 93. 105. 4. 79. 5. 89. 3. 81. 9, 
162.3,208.0,0. ,0./ 

DATA  BP/431.,571.,490.,298.7,281.4,285.8,518.,471.,512.,467.,529. 

1501..  463.. 386. 6. 337. 1.517. 7. 372. 7. 439. 6. 348. 8. 388. 3. 355. 2, 
1351.3,463.1,0. ,0./ 

DATA  A/8.5916,7.281,7.47009,7.7446,7.460,8.6642,8.305,10.1174, 
110. 8872, 9. 0715, 8. 986,0., 6. 40361, 9. 0347, 8. 2223, 6. 52001, 7. 5444, 

17. 2442, 7. 18757, 7. 05878, 7. 74144, 8. 17753, 8. 6883, 0..0..0./ 

DATA  B/-2424.5, -2072. 1,-1935. 47, -1453. 1,-1289. 2, -1654. 6, -2820., 
1-3136., -3590.5, -2890. 7, -3232., 0., -1237. 037, -2348. 18, -1799. 31, 
1-1428.57,-1577.8,-1669.7,-1384.18,-1385.39,-1360.183,-1630.863, 
1-2663. 33, 0..0..0./ 

DATA  C/273.,172.3,204.2,273. ,273. ,273. ,273, ,273. ,273. ,273. , 

1273. 2. 273..  153. 2. 273.. 273.. 147. 8. 238. 6. 216. 1.245. 567. 216. 338, 
1197.593,229.581 ,268.48,0. ,0. ,0./ 

DATA  FP/-56., -51. ,14. 45, -13. 3, -128., -6. 9, -50., -42., -30., -34., 

1-3. 7, -14., -18. ,1.4, -58., -45. 6, -36. 9, 33., -105., -42., -85. 8, -110. 5, 
1—39 . ,0. ,0.  ,0./ 

IF(U.EQ.O)  U-.03 
DO  10  IA-1,25 

I F (AGNT. EQ. AGN (I A))  GO  TO  15 
10  CONTINUE 
I  A- 26 

15  IF  (It.NE.12)  GO  TO  40 
C  16.  ATMOSPHERIC  PRESSURE 
20  CALL  READA  (16, IRT, IA.PMM) 

IF  (IRT.LT.O)  GO  TO  *0 
C  17.  SURFACE  CODE 
40  CALL  DEF(17,IRT) 

IF(IRT.EQ.O)  READ0\  '  (A3)  ')  SUR 
C  18.  TIME  OF  EVAPORATION 
60  CALL  READA  (18 , IRT , IA, TEVP) 

IF  (IRT.LT.O)  GO  TO  60 
P-PMM/760. 

TA-TC+273. 

RH0A-.3487*P/TA 

FMUA-EXP (4 . 36+ . 002844*TA) *1 . E-6 
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51 

52 

53 

54 

55 

56  70 


57 

58 

59  C 


60  80 
61 


62  C 

63  100 


64 

65 

66  120 


67 

68  130 


69  140 

70  150 


71  C 

72 


73 

74 

75 

76 

77 

78 

79  170 


80  180 
81 


82 

83  185 


84 

85  190 


86 

87 

89  200 


90  205 

91 


92  210 

93 


94 

95  230 


SCD-FMUA/RHOA 

IF  (SUR.EQ. 'GRA')  GO  TO  120 

IF  (SUR.EQ. 'NPR')  GO  TO  130 

IF  (SUR.EQ. 'NDF')  GO  TO  80 

WRITE (*,70) 

FORMAT  ('  SURFACE  CODE  NOT  DEFINED') 

CALL  DEF  (57, IRT) 

GO  TO  40 

19.  AREA  OF  WETTED  SURFACE 
CALL  READA  (19, IRT, IA.SA) 

IF  (IRT.LT.O)  GO  TO  80 

20.  LENGTH  OF  SURFACE  DOWNWIND 
CALL  READA  (20,IRT,IA,FL) 

IF  (IRT.LT.O)  GO  TO  100 

GO  TO  150 

SA-. 153E-6*QT 

GO  TO  140 

SA«1.21E-6*QT 

FL-$A**.5 

IF  (IA.LT.26.AND.IA.NE. 12)  GO  TO  180 

21.  FMW , FMV , VAP , BPT 
CALL  DEF  (21, IRT) 

IF  (IRT.EQ.O)  READ(*,*)  FMWT.FKVT, VP, BPT 
IF  (IRT.EQ.O)  IVP-1 
IF  (VP.GT.O.)  GO  TO  170 

WRITE (*,*)  '  INPUT  ANTOINE  CONSTANTS:  A.B.C,  FP (DEG  C) ' 
READ (* ,  *)  A (26)  , B (26) , C (26) , FP (26) 

IVP-  (-1) 

IF  (IVP)  185,185,205 
FMWT-FMW(IA) 

FMVT-FMV(IA) 

BPT-BP(IA) 

IF  (TC.GT . FP (IA) )  GO  TO  200 
WRITE(*, 190) 

FORMAT  ('  TEMPERATURE  LESS  THAN  FREEZING') 

TS-1.E36 

QT-O. 

RETURN 

VP-10.  **(A(U) +B (IA) / (TC+C (IA)  )  ) 

IF  (VP.LT.PMM)  GO  TO  230 
WRITER, 210) 

FORMAT  ('  TEMPERATURE  GREATER  THAN  BPT') 

TS-.l 

RETURN 

TS-TEVP 

FD-TA**1 . 5* ( . 03448+1 . /FMWT) ** . 5/P 
D-FD* . 0043/ (3 . 1034+FMVT** . 3333) **2 
RE-FL*U/SCD*1.E4 
FJM-. 036/RE**. 2 

IF  (RE. LE. 20000.)  FJM-. 664/RE**. 5 
GM-U*RH0A*3.448 
FKG-GM*FJM/ (SCD/D) ** . 667 
EVR-FKG*FMWT*VP/PMM*6 . E8 
AK-.1025*TA/BPT**.5 

OM- (1 . 075*AK** (- . 1615) ) +2 . * (10. *AK) ** (- . 74*ALOC10 (10 .  *AK) ) 
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CD* 1 . 18*FMVT** . 3333 

107 

DS-FD* . 00205/ (OM* ( (3 . 71 1+CD) /2 . ) **2) 

108 

FLC*(4.*SA/3. 14159) **.5 

109 

RES-FLC*.03/SCD*1.E4 

110 

EVRS-292 .  *  (1 .  + . 51*RE$**.5* (SCD/DS) ** 

111 

1FMWT/TA*DS/FLC*2 . /3 . 14159*1000. 

112 

IF  (EVRS.GT. EVR)  EVR-EVRS 

113 

IF  (EVRS.EQ.EVR)  WRITE (*,240) 

1 1 A 

240 

FORMAT  ('  STILL  AIR') 

115 

250 

FORMAT ( IX , A3 , '  EVR- '1PE9.3, * (MG/MIN 

116 

1'  VPR*'E9,3/,'  Q*'E9.3, ' (MG)  ' 3HQ * 

117 

2'  TEV-'E9.3, ' (MIN) ') 

118 

Q*SA*TEVP*EVR 

119 

TS-TEVP 

120 

IF  (Q.LE.QT)  GO  TO  260 

121 

TS-QT/EVR/SA 

122 

Q-QT 

123 

260 

WRITE (*,250)  SUR,EVR,SA,VP,QT,Q,TS 

124 

QT-Q 

125 

RETURN 

126 

END 

AREA* 1 E9 . 3 , ' (8Q  M) ' 
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37G3.FOR 


1  C  AXIAL  DOSAGE/  SEMI-CONT/  VAR  SOURCE/  VAR  NET  ORG  CGW 
SUBROUTINE  DDS 
CHARACTER* 1  ST,MTC,AAl ,AB1 
CHARACTER *2  AGNT.WT, AA2.CST, 12 
CHARACTER*3  HUNT , REL , LOCT , SEAT , SUR , I 3 , I 4 , I 5 
CHARACTER* 12  ADH.RL 
COMMON  NQI , QT (6) , TWL (6) ,D(10) , DL(10) 

COMMON  PR (1) ,DXT,HT,HML, SXS, SYS, S2S,TIVCH,UT, BR,SF,TMP, ALFA, SY 100, 
1BETA,SZ100,Z,RC, V,QS 

COMMON  DOM ( 1 2) , PP , DDM 1 (8) , ZO , LOCT ( 1 ) , SEAT , HUNT , AGNT , AAl , REL , 

$  MTC,AA2,SUR,WT,AB1,ADH,ADR,AD2 

COMMON  XPR (1) ,ND, IPO, I2MCS, IMA, IPC, IMM, IDD, IHR.NOV , INP ,MRL, ID1 , 

1 ID2 , IDEP , IMTCH , IM , IR , 1 1 , IRL, ISM, I VD, K33 , K42 

DIMENSION  SY100T(6) ,SZ100T(6) , SY100I (6) , ALFATC6) , BETAT(6) , ST (11) , 

1 SY 100C (2,3) , SZ20C (2,3), BETAC (2 , 3) ,TWLS(6) ,AR (10) , Y (10) ,VF(2) ,CI (2) 
2,S(2)  ,RL(3)  ,DS(31,2) 

DATA  ALPAT/1 . , 1 . , 1 . , .9, .8, . 7/ 

DATA  BETAT/ 1.4,1, , .9, .85, .8, >75/ 

DATA  SY100I/9. ,6.33,4.8,4. ,3. ,2./ 

DATA  SY100T/27. ,19. ,12.5,8. ,6. 1,4./ 

DATA  SZ100T/14. ,11., 7, 5, 4. 5, 3. 5, 2. 5/ 

DATA  SY100C/41. 19, 31 .18,66.56,30.98,26. 17,29.33/ 

DATA  SZ20C/3 . , 1 . 632 , . 797 , 1 . 934 , . 705 , 1 . 242/ 

DATA  BETAC/1. 344,. 755, 1.218,. 949, 1.182,1./ 

DATA  ST/'AVBVCVDVEVFVNVIVUVSVW/ 

DATA  VP, Cl, S/. 13,0,. 454,. 262, 2. 38, 2. 24/ 

DATA  14, 15/ 'EDI ' , 'EDS'/ 

DATA  RL/'NO  EFFECTS  ','NO  DEATHS  ' , ' IX  LETHALITY'/ 

IF  (ISM.GT.l)  GO  TO  2 
DO  1  1-1,31 

1  DS(I,2)-(DS(I,1)+DS(I,2))*ISM 
RETURN 

2  IP  (IMTCH)  3,3,7 

3  DX-DXT 
DO  4  I-l.ND 
AR(I)-0. 

4  DL(I)-AL0G(D(I)) 

K-l 

DLDG-1. 

DLDGS-1. 

X-0. 

TWHML-HML+HML 
IC-ND 
MXLF-0 
XX-0. 

XY-0. 

XZ-0. 

XS-0. 

DPMX-0. 

IRTP-1 
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31  IF  (IR.GT.4.AND. IR.L. .8)  IRTP-0 

52  DPL— 87.5 

53  DPLS— 87.5 

54  I2MC-I2MCS 

55  TQS-O. 

56  QRMX-O. 

57  SDEPL-1. 

58  QTTL-O. 

59  DO  5  I-l.NQI 

60  QTTL-QTTL+QT(I) 

61  TWLS(I)-TWL(I)*60. 

62  QR-QT (I) / (TWLS  (I) ~TQS) 

63  IF  (QRKX.GT.QR)  GO  TO  5 

64  QRKX-QR 

65  TQ2-TWLSU) 

66  TQ1-TQS 

67  5  TQS-TWLS(I) 

68  TOMXS- (TQ2-TQ1) /2 . +TQ1 

69  IF  (IDEP)  6,7,7 

70  6  CALL  KD42 

71  IF  (QT(l).EQ.O.)  RETURN 

72  GO  TO  11 

73  7  IMTCH-O 

74  IF  (IN. EQ. 9, OR. IH.EQ.il)  GO  TO  11 

75  IF  (IN.LE.6)  GO  TO  9 

76  IF  (IM.LE.8)  GO  TO  10 

77  WRITE  (*,8) 

78  8  FORMAT  0  MET  CODE  NOT  DEFINED') 

79  RETURN 

80  9  IF  (T0MXS.LE.2.4)  SY100-SY100I (IM) 

81  IF  (TOMXS.GT. 2. 4)  SY100-SY100T (IM) 

82  S2100-S2100T(IM) 

83  ALFA-ALFAT(IM) 

84  BETA-BETAT(IM) 

85  GO  TO  11 

86  10  IF  (UT.LE.2.235)  1-1 

87  IF  (UT . GT . 2 . 235 . AND . UT . LE . 4 . 47)  1-2 

88  IF  (UT. GT. 4. 47)  1-3 

89  MC-IM-6 

90  SY100-SY100C (MC, I) 

9 1  S2100-S220C (MC , I) *5**BETAC (MC , I ) 

92  ALFA-. 5 

93  BETA-BETAC (MC, I) 

94  11  U-UT 

95  XCH-1.E36 

96  IF  (TIVCH.NE. 1 . E36)  XCH-U*TIVCH*60. +X 

97  IF  (X.LE.O.)  X-l . 

98  IF  (SXS.GT.O.)  XX- (SXS/ .  1522) ** (1 . /. 9294)-X 

99  IF  (SYS.GT.O.)  XY-100. * (SYS/SY100) ** (1 . /ALFA) -X 

100  IF  (SZS.GT.O.)  XZ- 100. *  (SZS/SZ100)  **  (1 ,  /BETA)  -X 

101  WRITE  (*,12) 

102  12  FORMAT  (/4X, 'Q(MG) ' ,3X, 'TS(MIN) ' ,2X, 'HTS(M) 1 ,3X, 'HML(M) ' ,3X, 

103  l'EXS(M) ' ,3X, 'SYS(M) 1 ,3X, 'SZS(M) ') 

104  CST-ST(IM) 

105  IF(IM.EQ.ll)  CST-WT 
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106 

107 

13 

108 

109 

110 

111 

14 

112 

15 

113 

114 

115 

116 

117 

118 

119 

16 

120 

121 

17 

122 

18 

123 

124 

125 

126 

127 

128 

129 

19 

130 

131 

20 

132 

133 

21 

134 

135 

24 

136 

137 

25 

138 

139 

140 

141 

142 

26 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

1j9 

160 

27 

WRITE(*,13)  QT(l) ,TWL(1) ,HT,HML,SXS,SYS,SZS,CST 
FORMAT  (1X,1PE9.3,6(1X,E8.2) , 2X,A2) 

IF  (NQI.EQ.l)  GO  TO  15 

DO  14  1-2, NQI 

WRITE (*, 13)  QT(I) ,TWL(I) 

CONTINUE 

IF  (IVD.EQ.l)  CALL  VDPL(QTTL,SY,SZ,D(1) ,X,DX,DXA,XS,XCH,DP, 
1DPA.SDEPL, 1) 

IF (IDEP.GE. 1)  WRITE (*, 18)  BR.SF 
IF (I2MC.GT.0)  WRITE (*,103) 

IF(ISM.EQ.2)  WRITE(*, 105) 

IF  (IPO. LT. 1 .OR. IPO. EQ, 4)  GO  TO  25 
WRITE (*, 16) 

FORMAT  (/3X, 'ALFA' ,5X, 'SYR' ,4X, 'BETA' ,5X, ' SZR ' ,5X, * XY ' ,6X, ' X2 ' ) 
WRITE (*,17)  ALFA, SY100, BETA, SZ100.XY ,XZ,UT 
FORMAT  (1X,7(1PE8.2)) 

FORMAT  (/'  BRT- ' ,F4,0, '  SKF- ' , 1PE8.2) 

12-  'DP' 

IF  (IDEP.GT.O)  12- ' ED' 

13- ' 

IF  (I2MC.GT.0)  I3-'2MC' 

IF  (IPO.NE.3)  GO  TO  21 
WRITE(\19)  (D(I),I-1,ND) 

FORMAT (/6X, 'DOSAGE  CONTOURS ' , 10F5.0) 

WRITE(*,20)  12,13 

FORMAT (/7X , ' X ' , 7X , A2 , Al , 3X , ' CONTOUR  HALF-WIDTH ' ) 

GO  TO  25 

IF  (IDEP.EQ.O)  WRITER, 24)  12,13,13 

IF  (IDEP.GT.O)  WRITE(*,24)  12,13,13,14,15 

FORMAT (/7X, 'X' ,7X,A2,Ai,7X, *RF' ,7X,A3,7XPA3,7X,A3) 

IF  (ISM.EQ.2)  WRITE (*, 100) 

IF  (X.GT.XCH)  X-XCH 

B-X/U 

IIND-0 

TF  (IRTP.GT.O)  GO  TO  26 

CALL  PLUS  (U, TKP iPMM, IL, IM, IR , X , HT , HML , I PC, IRTP) 

DXA-DX 

IF  (X.GE.  (DX'UO.))  DX-DX*10. 

DXA-DXA+DX 

SX-. 1522* (XX+X) **.9294 
SY-SY100* ( (X+XY) *. 01) **ALFA 
SZ-SZ100* ( (X+XZ) *. 01) **BETA 

IF  (IVD.EQ. l.AND.X.EQ. 1)  CALL  VDPL(QYTL,SY,SZ,D(1) .X.DX.DXA.XS, 
1XCH.DP.DPA, SDEPL.2) 

DP-0. 

IF  (I2MC.EQ.0)  GO  TO  27 
A-l ./ (1.414*SX) 

G- . 7979*SX/U 
H- . 5/ (SX*SX) 

TSX-SX/U 

IT-0 

TTO-B+TOMXS 

TT1-TT0-60. 

TT2-TT1+120. 

TSZSQ-SZ^SZ*! . 
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161 

HPZ-HT+Z 

162 

HM2-HT-Z 

163 

VT-Y*X/U 

164 

FAC-0. 

165 

HML2-1.E36 

166 

ARC- (HMZ-VT) **2/TSZSQ 

167 

IF  (ARG.LT.87.)  FAC-FAC+EXP (-ARG) 

168 

ARG- (HPZ-VT)**2/TSZSQ 

169 

IF  (ARG.LT.87.)  FAC-FAC+RC/EXP (ARG) 

170 

ZFAC-0. 

171 

IF  (HML.GT. 1 .E10.0R.KXLF.EQ. 1)  GO  TO  30 

172 

DO  28  JJ-1,20 

173 

$MHML-TWHML*JJ 

174 

ARG- (SMHML-HPZ+VT) **2/T$ZSQ 

175 

IF  (N0V.EQ.4)  WRITE (*, *)  '  ARG', ARG 

176 

IF  (ARG.GT.87.)  GO  TO  29 

177 

ZFAC-ZFAC+RC** (JJ-1) /EXP (ARG) 

178 

ARG- (SHHML-HXZ+VT) **2/TSZSQ 

179 

IF  (ARG.LT.87.)  ZFAC-ZFAC*RC**JJ/EXP(ARG) 

180 

ARG- (SMHML+HMZ-VT)  **2/TSZSQ 

181 

IF  (ARG.LT.87.)  ZFAC-ZFAC+RC**J J/EXP(ARG) 

182 

ARG- (SMHML+HPZ-VT) **2/TSZSQ 

183 

28 

IF  (ARG.LT.87.)  ZFAC-ZFAC+RC**(JJ+1)/EXP(ARG) 

184 

29 

IF  ((FAC+ZFAO.NE.O.)  HML2-  (2 . 5066283*SZ)  /  (FAC+ZFAC) 

185 

IF  (HML.GT.HNL2.AND. (HML-HHL2) .LT.l)  MXLF-1 

186 

30 

RF- (FAC+ZFAC) /2. 

187 

IF  (IIND)  33,33,31 

188 

31 

TTO-B-TSX-TSX 

189 

TT1-TT0 

190 

TT3-B+TWLS (NQl) +TSX+TSX 

191 

TT3S-TT3 

192 

TT3-TT3-120. 

193 

DTT- (TT3-TTO) /30. 

194 

IF  (DTT.LT. 10.)  DTT-10. 

195 

TT2-TT1+120. 

196 

DOS-0. 

197 

IF  (DTT.LT. 120.)  GO  TO  33 

198 

32 

TT2-TT1+DTT 

199 

33 

TWLT-O. 

200 

DLDP-0. 

201 

DO  63  ITWL-l.NQI 

202 

TS-TWLS (ITWL)~TWLT 

203 

IF  (MXLF)  35,35,34 

204 

34 

C-QT(ITWL) / (300. 79539*U*TS*SY*HML) 

205 

GO.  TO  36 

206 

35 

C-QT (ITWL) *RF/ (376. 991*U*rS*SY*5Z) 

207 

36 

IF  (I2MC.GT.0)  GO  TO  37 

208 

DP-DP+C*2.*TS 

209 

GO  TO  63 

210 

37 

T1-TT1-TWLT 

211 

IF  (Tl)  38,39,39 

212 

38 

Tl-0. 

213 

39 

T2-TT2-TWLT 

214 

IF  (T2)  63,63,40 

215 

40 

1-3 
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216 

PT1-T1 

217 

PT2-T2 

218 

P-T2-TS 

219 

R-T1-TS 

220 

IF  (P)  42,42,41 

221 

41 

IF  (R)  44,43,43 

222 

42 

1-1 

223 

GO  TO  45 

224 

43 

1-2 

225 

GO  TO  45 

226 

44 

T2-TS 

227 

R-0. 

228 

45 

E-X-U*T2 

229 

EE-E*E 

230 

F-X-U*T1 

231 

FF-F*F 

232 

W-(T2-B)*ERFF(E*A) 

233 

CC-  (T1-B)*ERFF(F*A) 

234 

ARG1-EE*H 

235 

ARG2-FF*H 

236 

IF  (ARG1-82.6)  47,47,46 

237 

46 

ARG1-0. 

238 

GO  TO  49 

239 

47 

ARG1-EXP C-ARG1) 

240 

48 

ARG2-EXP C-ARG2) 

241 

GO  TO  51 

242 

49 

IF  (ARG2-82.6)  48,48,50 

243 

50 

ARG2-0. 

244 

51 

DD-G* (ARG1-ARG2) 

245 

GO  TO  (52,54,52,54) ,  I 

246 

52 

QQ-  (T2-T1)*ERFF(X*A) 

247 

XTERM-C* (QQ-W+CC+DD) 

248 

IF  (1-3)  62,53,94 

249 

53 

PART-XTERN 

250 

1-4 

251 

T2-PT2 

252 

Tl-TS 

253 

GO  TO  45 

254 

54 

ARG3-X-U*P 

255 

ARG4-X-U*R 

256 

HH- (T2-B-TS) *ERFF (ARG3*A) 

257 

PP-  (Tl*  B-TS)  *ERFF  (ARG4*a) 

258 

ARG3- (ARGj**2)  AH 

259 

ARG4- (ARG4**2) 

260 

IF  (ARG3-82.6)  56,56,55 

261 

55 

ARG3-0. 

262 

GO  TO  58 

263 

56 

ARG3-F.XP  (-  (ARG3) ) 

264 

57 

ARG4-EXP (- (ARG4) ) 

265 

GO  TO  60 

266 

58 

IF  (ARG4-82.6)  57,57,59 

267 

59 

A.RG4-0 . 

268 

60 

GG-G* (ARG3-ARG4) 

269 

XTERM-C* (HH-PP-W+CC-GG+DD) 

270 

IF  (1-4)  62,61,94 
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273 

XTERW-XTEWi+PART 

274 

62 

DLDP-DLDP+ XTERrt 

273 

TWLT-TWLS(ITWL') 

276 

63 

CONTINUE 

277 

DPA-DP 

278 

IF  (I2MC.EQ.0)  GO  TO  75 

279 

IF  (HMD)  64,6 4,65 

280 

64 

IIND-1 

281 

TDLDP-DLDP+O. 

282 

GO  TO  31 

283 

65 

DP-DP+DLDP 

284 

IF  (IT)  66,66,67 

285 

66 

IT*1 

286 

TT2C-TT2-TT0 

287 

GO  TO  71 

288 

67 

TT10-TT1-TT0 

289 

TT20-TT2-TT0 

290 

TT21-TT2-TT1 

291 

TT121-TT2C+TT2-TT1 

292 

TT10P-TT2C**. 274 

293 

TT20P-TT121**.274 

294 

TT21P-TT21**.274 

295 

DELDC- . 2696* (DO* (TT20P-TT10P) ) 

296 

IF  (DELDC-DLDP)  69,68,70 

29? 

68 

TT2C-TT121 

298 

GO  TO  71 

299 

69 

DPC-DPS+DELDC 

300 

TT2C- ( ( (DPC*TT20P)+ ( (DLDP-DELDC) *TT21P) ) /DP) **3.6496 

301 

GO  TO  71 

302 

70 

TT2C- ( (DLDP/TT21) *TT20*TT20P) ♦ ( (DPS- (DLDP/TT21) *TT10)  *TT10P) 

303 

TT2C- (TT2C/DP) **3 . 6496 

304 

71 

DPS-DP 

305 

DO-DP/ ( . 2696* (TT2C** . 274) ) 

306 

IF  (DOS-DO)  72,72,73 

307 

72 

TT2CS-TT2C+0. 

308 

DOS-DO 

309 

73 

TT1-TT2 

310 

IF  (TT2-TT3S)  32,74,74 

311 

74 

DLDC- . 2696*TT2CS** . 274 

312 

IF  (DLDC.LT.l.)  DLDG-1. 

313 

DPA-DP 

314 

DP-DP/DLDG 

315 

IF  (DP.LT.TDLDP)  DP-TDLDP 

316 

75 

IF  (IDEP.LT.l)  GO  TO  76 

317 

DPA-DPA*VF ( IDEP) 

318 

DOSI-DP*VF(IDEP) 

319 

DOSIS-QT(l) *SF*CI  (IDEP)  *  (U/X)  ’"'^S  (IDEP)  *1000/ BR 

320 

DP- (DOSI+DOSIS) 

321 

76 

IF  (IVD.EQ.l)  CALL  VDPL(QTTL,SY,SZ,Da)  .X.DX.DXA.XS, 

322 

1XCH,DP,DPA,SDEPL,3) 

IF  (K.LT.52)  DS (K, 1) -DP 

323 

324 

IF  (ISM.EQ.2)  DP-DS (K, 2)  +DP 

325 

IF  (DP.LE.O.)  GO  TO  83 
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DPL-ALOG(DP) 

IF  (XS.EQ.O..OR.DPL.CE.DPLS)  GO  TO  83 
IND-1 

IF  (IC-MRL)  84,84,77 

IF  (DPMX  LT. D(IC))  CO  TO  78 

IF  (DP. GT.D(IC) .OR.DPLS.LT, DL(IC))  GO  TO  84 

XL-ALOG(X) 

XLS-ALOG(XS) 

XINT-EXP  (XLS*  (XL-XLS)  *  (DI.  ( IC)  -DPLS)  /  (DPL-DPLS) ) 

IF  (IVD.EQ.l)  WRITE(*, *  (F5.2) *)  SDEPL 
IF  (IRL.EQ.O)  WRITE(MOl)  XINT,D(IC) 
i?  (IRL.E0.1)  WRITE (*, 102)  XINT,RL(IC) 

IF  (D(IC).EQ.1.E36)  WRITER, 79) 

FORMAT  ('  RESP  NOT  DEF*) 

IC-IC-I 

IF  (IC.GT. l.OR. I2MC.LT.2)  GO  TO  81 
DPLS-ALOG(EXP (DPLS) *DLDGS) 

DPL-ALOG(DP*DLDG) 

I2NC-0 

IF  (IC.GT. MRL)  WRITE (*,80) 

FORMAT  (’  W/0  2-MINUTE  CORRECTION*) 

IF  (IC-MRL)  84,84,77 
IND-0 

I2MC-I2MCS 

IF  (DP. LT. DPMX)  GO  TO  84 

DPMX-DP 

XDMX-X 

IP0P1-IP0+1 

GO  TO  (92,85,87,88,92),  IPOPl 
IF  (RF.EQ. 1. . OR.MXLF.EQ. 1)  GO  TO  86 
WRITE (*,98)  X,DP,RF 
GO  TO  92 

WRITE (*,98)  X,DP 
GO  TO  92 

IF  (IDEP.EQ.O)  WRITE (*,98)  X,DP,RF,DLDG 
IF  (IDEP.GE. 1)  WRITE (*,98)  X,DP,RF,DLDG,DOSI .DOSIS 
GO  TO  92 

IF  (DP.LT.D(l))  GO  TO  92 
DO  89  IY-l.ND 
ARG-DPL-DL(IY) 

IF  (ARG.LT. 0.)  GO  TO  90 
Y(IY)-1.41421*SY*SQRT(ARG) 

IF  (X.NE.XCH)  AR(IY)-AR(IY)+Y(IY)*DXA 

IF  (X.EQ.XCH)  AR(IY)-AR(IY)-Y(IY)*(XS+DX-XCH) 

CONTINUE 

IY-ND+1 

IY-IY-1 

WRITE (*,91)  X,DP, (Y(I)  ,1-1, IY) 

FORMAT  (lX.FlO.O, 1PE10.3.0P10F5.0) 

XS-X 

DPLS-DPL 

DLDGS-DLDC 

IF  (X.NE.XCH)  GO  TO  93 

IMTCH-1 

SXS-SX 
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3B1 

382 

383 

38A 

93 

385 

386 

387 

388 

389 

390 

94 

391 

392 

96 

3P3 

394 

395 

396 

397 

398 

97 

399 

400 

98 

401 

99 

402 

100 

403 

101 

404 

102 

405 

103 

406 

104 

407 

408 

105 

409 

SYS-SY 

SZS-SZ 

RETURN 

IF  (X.EQ.l. .AND.DX.GT.l.)  X-0. 

X-X+DX 

K-K+l 

IF  (X.CT.9.E6)  RETURN 

IF  (IND.EQ.O.OR.DP.GT.DCMRL+l)  OR. IRTP.Lf . 1)  GO  TO  25 
IF  (DPMX.LT.D(MRL+1))  WRITE(’M04)  XDMX ,  DP  MX 
WRITE (*,*) 

IF  (IPO.EQ.3)  WRITE (*,96) 

FORMAT  (AX, 'DOSAGE' ,SX, 'AREA') 

IF  (IPO.EQ.3)  WRITER, 99)  (D(I)  ,AR  (I)  ,  I“ND,  1,-1) 

IF  (IVD. EQ. 1 .AND. IPO. EQ. A)  CALL  VDPL (QTTL, SY , SZ ,D(1) ,X,DX,DXA,XS, 
1 XCH , DP , DPA, SDEPL , A) 

IF  (K.GT.51)  RETURN 
DO  97  I-K.51 
DS(I,l)-0. 

RETURN 

FORMAT  (1X.F10.0.1P5E10.3) 

FORMAT  (1X.1P2E10.3) 

FORMAT  (15X, ' SUM') 

FORMAT  (/1X.F10.0,'  (M)  IS  DISTANCE  TO  \E10.3,' 

FORMAT  (/1X.F10.0, '  (M)  IS  DISTANCE  TO  ' ,AI2/) 

FORMAT  (/'  W/2-MINUTE  CORRECTION') 

FORMAT  (/'  MINIMUM  DOSAGE  NOT  ATTAINED' ,// AX, 'XDMAX* ,9X, 'DMAX' , 

$  /F10.0.6X.E10.3) 

FORMAT  (/'  DOSAGE  IS  BEING  SUMMED') 

END 


(MG~MIN/M'I3)  1 ) 
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HD42 . FOR 

1 

C 

FIT  TO  ORG  40  PAR  FOR  4.2/  CGW 

2 

SUBROUTINE  HD42 

3 

COMMON  KQI,QT(6J ,TWL(6) ,D(10) ,DL(10) 

4 

COMMON  TIM,DXT,HT,HML,SXS,SYS,SZS,TIVCH,UT,BR,SF,TKP,.iLFA,SYiOO, 

5 

1BETA,SZ100,Z,RC,V,QS 

6 

COMMON  HDM(33) , IPR (1) ,ND, IPO, 12MC, IMA.OPC, IMM, IDD, IHS.NOV, INP.MRL, 

7 

1 NMU , ID2 , IDEP , IMTCK , IM, IR, IL, IRL, ISM, IVD 

8 

DIMENSION  FWT(IO) , FST(3) ,ALBT4(3) ,SZR4(3) 

9 

DATA  FWT/1.6,.89, .64, .52, .43, .37, .33, .3, .27, .25/ 

10 

DATA  FST/. 7,1. ,1.25/ 

11 

DATA  SYR4/6.82/ 

12 

DATA  ALBT4/3.33, 1.4, 1.02/ 

13 

DATA  SZR4/287. , 12.84,6.97/ 

14 

TF»1.8*TMP+32. 

13 

IF  (TF.LT.50.)  GO  TO  4 

16 

IUT-UT+.5 

17 

IF  (IUT.GT.10)  IUT-10 

18 

IKT-(IM+l)/2 

19 

IF  (TF.LE.80.)  FT-EXP(3.6889-.046052*TF) 

20 

IF  (TF.GT.80.)  FT«EXP(3.4239-.042799*TF) 

21 

C 

22.  TIME  AFTER  FUNCTIONING 

22 

1 

CALL  READA  (22, IRT, 3, TIM) 

23 

IF  (IRT.LT.O)  GO  TO  1 

24 

FEL-ALOG(FST (IMT) *FWT (IUT) *FT*120. /TIM) 

23 

R-l. 

26 

IF  (FEL.LT.-1.2)  GO  TO  3 

27 

R-EXP ( . 36464- . 86 189*FEL) 

28 

IF  (FEL.GT..4)  R-R-EXP (-. 05129-1 .6767*FEL) 

29 

IF  (FEL.LE..4)  R-R-EXP (-.24846-1 . 1373*FEL) 

30 

3 

QT(1)-QS*R*NMU 

31 

SY100-SYR4 

I  32 

SZ100-SZR4UMT) 

f  33 

ALFA-ALBT4 (IMT) 

S  3* 

BETA-ALBT4 (IMT) 

35 

SYS-3.8 

3  36 

SZS-.2 

37 

SX3-SYS 

}  38 

RETURN 

5  39 

4 

WRITE(*,5) 

5  40 

5 

FORMAT C  TEMPERATURE  FUNCTION  NOT  DEFINED  BELOW  10  DEG  C) 

C  41 

QT (1) -0. 

9  42 

RETURN 

i  43 

l 

END 
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22 

23 

24 
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26 

27 

28 

29 
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31 
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C  PEAK  CONCENTRATION/  INS/  CON/  FUN/  SAO  PER  CGW-JHG 
SUBROUTINE  CDS 
CHARACTER *1  1ST 

COMMON  NQI ,QT (6) , TWL (6) ,CI(10) ,CL(10) 

COMMON  PR ( 1) ,DXT , H , HML , SXS , SYS , SZS , TIVCH , UT , BR , SF , TMP , ALP , SYR , BTAf 
1 S2R , Z , RC , V , QS , TEVP , SA , FL , FMW , CDM (8) ,FP,CDM1(8) ,Z0,CDM2(U) 

COMMON  IPR (1) ,ND, IPO, I2MC, IMA, IPC, IMM, IDD, 

1IHR.NOV, INP.MRL, ID1 , ID2 , IDEP , IMTCH , IM , IR, IL, IRL, ISM, IVD,K33,K42 
DIMENSION  ALFA (6) .BETA (6) ,SY100(6,2) ,SZ100(6) 

DIMENSION  SY100C(2,3) ,SZ20C(2,3) ,BETAC(2,3) 

DIMENSION  IST(ll) . Y(10) , AR(10) 

DATA  ALFA/1.0,1.0,1.0,.9,.8,.7/ 

DATA  BETA/1.4,1.,.9,.85,.8,.75/ 

DATA  SY100/9 . ,6.33,4.8,4. ,3. ,2. , 27 . , 19. i 12,5,8. ,6. ,4./ 

DATA  S2100/14. ,11., 7. 5, 4. 5, 3. 5, 2. 5/ 

DATA  SY100C/41. 19,31. 18,66.56,30.98,26.17,29.33/ 

DATA  SZ20C/3 . , 1 . 652 , . 797 , 1 . 934 , . 705 , 1 . 242/ 

DATA  BETAC/1. 344,. 755, 1.218,. 949, 1.182,1./ 

DATA  IST/'AVBVCVDVEVFVNVIVU'.'SVWV 
DATA  HK/0./ 

IF  (IDEP.EQ.O)  CO  TO  42 
WRITE (*,1) 

1  FORMAT  ('CONCENTRATION  NOT  DEFINED  FOR  INSTANTEOUS ' 

$'  RELEASE  OF  VX  OR  HD') 

RETURN 

42  IF  (IMTCH)  2,2,43 

2  DO  3  I-l.ND 
AR  (I) “0. 

CL  (I) -LOG(CI  (I) ) 

3  CONTINUE 
X-0. 

DX-DXT 

SDEPL-1. 

Q-QT(l) 

IS-1 

IF  (TWL(l) .GT. ,083)  IS-2 

43  IMTCH-0 

IF  (IM.GT.8)  GO  TO  5 
IF  (IM.GT.6)  GO  TO  4 
ALF-ALFA(IM) 

SYR-SYIOO(IM.IS) 

BTA-BETA(IM) 

SZR-SZIOO(IM) 

GO  TO  5 

4  I-UT/2. 235+1 

IF  (I.GT.3)  1-3 
MC-IM-6 

BTA-BETAC (MC,I) 

ALF-.5 

SYR-SY100C (MC,  I ) 


Appendix  E 


113 


SZR-S220C (MC. I) *5**BTA 
XC-1.E36 

IF  (TWL(l) .EQ. 1 . E36)  GO  TO  6 
Q"QT(1) /TWL(l) 

XC-O. 

IF  (IS.EQ.l)  GO  TO  6 

XC-EXP (ALOG(TWL(l) *UT*157.27) /.9294) 

QOU-Q/UT 

HKOU-HK/UT/60. 

XCH-1.E36 

IF  (TIVCH.NE. 1.E36)  XCH-UT*TIVCH*60.+X 

IF  (IHTCH.EQ.  1)  GO  TO  44 

KXLF-0 

TWHML-HML+HML 

IC-ND 

IND-0 

IRTP-1 

IF  (IR.GT . 4. AND. IR, LT.8)  IRTP-0 
CPMX-O. 

CPLSAV— 87.5 
XSAVE-O. 

A"0. 

>■0. 

C*0. 

IF  (SXS.NE.O.)  A-(SXS/.1522)**1.076-X 
IF  (SYS.NE.O.)  B- 100* (SYS/SYR) **(1./ALF)-X 
IF  ($ZS.NE.O.)  C"100. * (S2S/S2R) ** (1 . /BTA) -X 
WRITE (*,7) 

FORMAT (/3X, ' Q (MG) ' ,4X, 'TS(MIN) ' ,3X, 'HTS(M) ' ,4X, 'HML(M) ' , 

♦«X, 'WND') 

WRITE  (*,8)  QT(1) ,TWL(1) ,H,HML,UT,IST(IM) 

FORMAT  <3X ,  IPE9 . 3 , 4  ( IX ,  F9 . 3) ,  4X ,  A2) 

WRITE  (*,9) 

FORMAT (/4X,  'ALF'  ,2X,  'SYR'  'BTA',3X,  'SZR'  ,8X,  'SYS(M)  ' , 

+2X , ' SZS (M) ' , 2X , ' X Y (M) ' , 3X , ’ XT (M) ' , 3X, ' XC (M) ' ) 

WRITE  (*.10)  ALF.SYR.BTA.SZR.SYS.SZS.B.C.XC 
FORMAT  (1X.4F6.2.6X, 1P5E8. 1/) 

IF  (IVD.EQ.l)  CALL  VDPL(Q,SY,SZ,CI (1) .X.DX.DXA.XS.XCH.CP.CP, 
1SDEPL.1) 

IF  (IMA.EQ.3)  write(MI) 

FORMAT  ('  FUMIGATION') 

IF  (IP0.NE.3)  GO  TO  13 
WR1TE(\12)  (CI(I).I-l.ND) 

FORMAT ('  CONCENTRATIONS ’.10F5.0) 

WRITE (*,*) 

WRITEC*,*)  '  X  CP  CONTOUR  HALF-WIDTHS' 

IF  (IP0.LT.3)  WRITE (* , 41) 

IF  (IMA.EQ.2)  WRITE (*,*)’  PPM' 

IF  (X.GT.XCH)  X-XCH 
DXA-DX 

IF  (X.GE. (DX*10.))  DX-DXMO. 

DXA-DXA+DX 
IF  (X.EQ.O)  X-l 
SY-SYR*((X+B)*.01)V,*ALF 
SZ-SZR*((X+C)*.01)**BTA 


106 

107 

108 

109 

110 

15 

111 

112 

113 

114 

16 

115 

17 

116 

117 

18 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

19 

141 

20 

142 

143 

21 

144 

145 

22 

146 

147 

148 

23 

149 

24 

150 

151 

152 

133 

154 

135 

156 

25 

157 

158 

159 

160 

IF  (IVD.EQ. l.AND.X.EQ. 1 .)  CALL  VDPL(Q,SY,SZ,CI (1) ,X,DX,DXA,XS, 
1XCK , CP , CP , 8DEPL , 2) 

IP  (IRTP.GT.O)  GO  TO  15 

CALL  PLRS  (UT,TMP,P!W,IL,IM,IR,X,H,HML,IPC,IRTP) 

IF  (IMA.NE.3)  GO  TO  16 
SYF-SY+  (H*. 125) 

CP-QOU/ (150.39770*SYF* (H+S2+SZ) ) 

GO  TO  24 

IF  (MXLF)  18,18,17 
CP-Q0U/(13Q.39770*SY*HML) 

GO  TO  22 

CP-QOU/(188.49536*SZ*SY) 

TSZSQ-SZ*SZ*2. 

HPZ-H+Z 

HHZ-H-Z 

VT-V*X/UT 

FAC-O, 

HML2-1.E36 

ARG- (HHZ-VT) **2/TSZSQ 
IP  (ARG.LT.87.)  FAC-FAC+EXP(-ARG) 

ARG- (HPZ-VT) **2/TSZSQ 

IP  CARG.LT. 87.)  FAC-FAC+RC/EXP (ARG) 

ZPAC-0. 

IP  (HML.GT, 1.E10.0R.KXLF.EQ. 1)  GO  TO  21 

DO  19  JJ-1,20 

SMHML-TWHML*JJ 

ARG- (SMHML-HPZ+VT) **2/TSZSQ 

IF  (ARG.GT.87.)  GO  TO  20 

ZPAC-2PAC+RC**(JJ-1) /EXP (ARG) 

ARC-  (SMHML-HMZ+VT)  **2/TS2Sf| 

IF  (ARG.LT.87.)  ZFAC-ZFAC+RC** J J/EXP (ARG) 

ARG- (SMHML+HMZ-VT) **2/TSZSQ 
IP  (ARG.LT.87.)  ZFAC-ZFAC+RC**J J/EXP (ARG) 

ARG- (SMHML+HPZ-VT) **2/TSZSQ 

IF  (ARG.LT.87.)  ZFAC-ZFAC+RC**(JJ+1) /EXP (ARG) 

IF( (FAC+ZFAC) .NE. 0. ) HML2- C2 . 5066283ASZ) / (FAC+ZFAC) 

IF  (HHL.GT.HML2. AND. (HML-HML2) . LT. 1)  MXLF-1 
RF- (PAC+ZFAC) /2. 

CP-CP*RF 

IF  (X.LT.XC)  GO  TO  23 
SX- . 1522* ( (X+A) ** . 9294) 
a-CP*TWL(l)*UT*23.936537/SX 
IF  (HK.GT.O.)  CP-CP/EXP (X^HKOU) 

IF  (CP. LT.  1 . E— 33)  GO  TO  36 

IF' (IVD.EQ. 1)  CALL  VDPL(Q,SY,S2,CI (1) ,X,DX,DXA,XS, 

1XCH , CP , CP , SDEPL , 3) 

IF  (IMA.EQ.2)  CP"CPyr24, 45/FMW 
CPL-LOG(CP) 

IF  (XSAVE.EQ.O. .OR.CPL.GE.CPLSAV)  GO  TO  28 
IND-1 

IF  (Cr-rtX.LT.CI(IC))  GO  TO  26 

IF  (CP. CT.CI(IC) .OR.CPLSAV.LT. CL(IC))  GO  TO  29 

XLNA-ALOG(X) 

XLNB-ALOG (XSAVE) 

XLNC-XLNB+ (XLNA-XLNB) * (CL ( IC) -CPLSAV) / (CPL-CPLSAV) 
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$ 

VO 


HS 


• i 


161 

XINT-EXP(XLNC) 

162 

IF  (IVD.EQ.l)  WRITE(*,' (F5.2) ')  SDEPL 

163 

WRITE  (*,27)  XIHT.CI(IC) 

164 

26 

IC-IC-1 

165 

IF  (IC-MRL)  29,29,25 

166 

27 

FORMAT  (/1X,F10.0, ’*  '.1PE10.3) 

167 

28 

IND-0 

168 

IC-ND 

169 

IF  (CP.LT.CPMX)  GO  TO  29 

170 

CPMX-CP 

171 

XCMX-X 

172 

29 

IF  (IP0.NE.3)  GO  TO  32 

173 

SYRT2-1.41421*SY 

174 

Y(l)-0. 

175 

DO  30  IY-1,ND 

176 

ARC-CPL-CL(IY) 

177 

IF  (ARG.LT.O.)  GO  TO  31 

178 

Y(IY)-SYRT2*SQRT(ARG) 

179 

IF  (X.NE.XCH)  AR(IY)-AR<IY)+Y(IY)*DXA 

180 

IF  (X.EQ.XCH)  AR(IY)-AR(IY)-Y(IY)*(XSAVE+DX-XCH) 

181 

30 

CONTINUE 

182 

IY-ND+1 

183 

31 

IY-IY-1 

184 

WRITE  (*,39)  X,CP,(Y(I),I-1,IY) 

185 

GO  TO  35 

186 

32 

IF  (IPO.EQ.O.OR.IPO.EQ.4)  GO  TO  35 

187 

IF  (RF.EQ.l.O.OR.HXLF.EQ.l)  GO  TO  34 

188 

WRITE  (*,33)  X.CP.RF 

189 

33 

FORMAT  (1X,F10.0,2X, 1P2E10.3) 

190 

GO  TO  35 

191 

34 

WRITE  (*,33)  X,CP 

192 

35 

IF  (IND.EQ,  1 .AND.CPL. LT.CL(1+MRL)  .AND.  IRTP.GT.O)  GO 

193 

XSAVE-X 

194 

CPLSAV-CPL 

195 

IF  (X.NE.XCH)  GO  TO  36 

196 

IMTCH-1 

197 

SXS-SX 

198 

SYS-SY 

199 

S28-S2 

200 

RETURN 

201 

36 

IF  (X.EQ. 1 . . AND.DX.GT. 1 .)  X-0. 

202 

X-X+DX 

203 

GO  TO  14 

204 

37 

IF  (CPMX. LT.CI (1+MRL) )  WRITE(*,39;  XCMX.CPMX 

IF  (IP0.EQ.3)  WRITE  (*,40)  (Cl (I) ,AR (I) , I-ND, 1,-1) 
IF  (1VD.EQ. l.AND. IP0.EQ.4)  CALL  VDPL(Q,SY,SZ,CI (1)  , 

205 

206 

207 

1 XCH , CP , CP , SDEPL , 4) 

208 

RETURN 

209 

38 

FORMAT  (21X, 10F5.0) 

210 

39 

FORMAT  (IX, FI 0.0, 1PE10. 3 ,0P10F5 . 0) 

211 

40 

FORMAT  (//5X, 'C' ,8X, 'AREA' , / ( 1 P2E 1 0 . 3) ) 

212 

41 

FORMAT (/9X, 'X' ,8X, 'CP'  ,8X, *RF ' ) 

213 

END 
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1  C  STACK  PROGRAM/  PLUME  RISE/  GROUND  FIRE/  CGW 

2  SUBROUTINE  PLRS  (UR,TMP,PMM, 1L, IM, IR,XI ,HT,HML, IPC, IRTP) 

3  COMMON  PDM (60) , HS , DS , TSC , VS , RDE , P , HR , CR , ?lu  (42) 

4  DIMENSION  DELF (6) ,  DTDZ (6)  , FT (6 , 3) , ITT (12) 

3  DATA  DXT  /10 ./ 

6  DATA  G  /9.8/ 

7  DATA  2R  / 2./ 

8  DATA  CP  /. 24/ 

9  DATA  GI  /.64/ 

10  DATA  GC  1.5/ 

11  DATA  DILF/1.2,1.1,1.,1.,.9,.8/ 

12  DATA  DTD2/-. 01, -.008, -.006,0.,. 01,. 037/ 

13  DATA  PT/. 03,. 03,. 1,. 1,. 13,. 15,. 03,. 1,. 13,. 2,. 23,. 3,. 1,. 15,. 2,. 23, 

14  1.3, .35/ 

15  DATA  ITT/3,2.3,1,3,2,0,2,2,3,3,0/ 

16  IF  (XI.EQ.O.)  GO  TO  30 

17  IF  (IPC.GT.l)  GO  TO  10 

18  IRTP-1 

19  RETURN 

20  10  X-XI 

21  IF  (XI.LT.XMX)  GO  TO  20 

22  X-XMX 

23  IRTP-IRTP+1 

24  20  IF  (IR-6)  280,290,320 

23  30  IRTP— 1 

26  TA-TMP+273. 

27  S"G*DTDZ(IM) /TA 

28  IF  (IL.NE.12)  GO  TO  60 

29  C  16.  ATMOSPHERIC  PRESSURE 

30  40  CALL  READA  (16, IRT, IA, PMM) 

31  IF  (IRT.LT.O)  GO  TO  40 

32  60  PA-1013.*PMM/760. 

33  C  23.  OUTPUT  CONTROL  CODE 

34  50  CALL  DEF  (23, IRT) 

35  IF  (IRT.EQ.O)  READ(rt,*,ERR-70)  IPC 

36  GO  TO  80 

37  70  CALL  DEF  (63, IRT) 

38  GO  TO  30 

39  80  IF  (IR.GT.6)  GO  TO  300 

40  C  24.  HEIGHT  OF  STACK 

41  90  CALL  READA  (24, IRT, ZA, HS) 

42  IF  (IRT.LT.O)  GO  TO  90 

43  C  25.  DIAMETER  OF  STACK 

44  100  CALL  READA  (25 , IRT,  IA,  DS) 

43  IF  (IRT.LT.O)  GO  TO  100 

46  C  26.  TEMPERATURE  OF  STACK 

47  110  CALL  READA  (26 , IRT, IA, TSC) 

48  IF  (IRT.LT.O)  GO  TO  110 

49  C  27.  VELOCITY  OF  EFFLUENT 

50  120  CALL  READA  (27, IRT,  IA,  VS) 
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31 

IF  (IRT.LT.O)  CO  TO  12.0 

52 

C 

28.  RELATIVE  DENSITY  OF  EFFLUENT 

53 

130 

CALL  DEF  (28.IRT) 

54 

IF  (IRT.EQ.O)  READ(*,*)  RDE 

55 

140 

TS-TSC+273. 

56 

F-O. 

57 

IF  (TS.LT.TA)  WRITE(*,150) 

58 

150 

FORMAT C  DHH/DHB/DHBT  NOTE:  STK  TMP  LESS  THAN  AIR  TMF') 

59 

IF  (TS.LT.TA)  CO  TO  160 

60 

F- (TS-TA) /TS*C*VS*DS**2/4. 

61 

IF  (F.LE.55.)  XA-14.*F**.625 

62 

IF  (F.GT.55.)  XA-34.*F**.4 

63 

XMX-3.5*XA 

64 

160 

IT-ITT(IL) 

65 

IF  (IT.NE.O)  P-PT(IM.IT) 

66 

IF  (IT.NE.O)  CO  TO  170 

67 

C 

29.  FROST  PROFILE  EXPONENT 

68 

CALL  DEF  (29, IRT) 

69 

IF  (IRT.EQ.O)  READ(*,*)  P 

70 

170 

UZ-UR*  f.HS/ZR)  **P 

71 

IF  (S.CT.O.)  XMX-2.4*UZ/S**.5 

72 

FM"RDE*VS*VS*DS*DS/4 . 

73 

IF  (UZ.LT.l. .AND.S.CE.O.)  GO  TO  200 

74 

VR-VS/UZ 

75 

IF  (VR.LT.4)  WRITE (*, 180) 

76 

180 

FORMAT  ('  DHJ  NOTE:  VS/UZ  LT  4') 

77 

IF  (S.LT.O.)  WRITE (*, 190) 

78 

190 

FORMAT  ('  DHJ  NOTE:  UNSTABLE  MET  CONDITIONS') 

79 

DHJ-3 . *VR*DS 

80 

GO  TO  210 

81 

200 

DHJ-4. * (FM/S) **,15 

82 

210 

IF  (S.LE.O.)  GO  TO  220 

83 

DH  JB- 1 . 5* (FM/UZ) ** . 333/S** . 167 

84 

IF  (DHJB.LT.DHJ)  DHJ-DHJB 

85 

220 

X-l . 

86 

IF  (IR.EQ.5.AND. IPC.EQ.O)  X-XMX 

87 

DELH- (VS*DS/UR) * (1 . 5+ (2 . 68E-3*PA* ( (TS-TA) /TS) *DS) ) 

88 

DHH-DELH*DELF(IM) 

89 

WRITE (*,230) 

90 

230 

FORMAT  (/8X,  'X'  , 8X, ’DHH 1 , 7X, 1 DHB ’ , 6X, ’ DHBT 1 ,3X,’DHJ') 

91 

DEL-1. 6*(F**.333)/UZ 

92 

240 

IF  (IR.EQ.5, AND.X.GT.XMX)  X-XMX 

93 

DHB-DEL*X**.667 

94 

IF  (S.LE.O.)  GO  TO  230 

95 

DHB-2.5*(F/(UZ*S))**.333 

96 

IF  (UR.GE.l.)  GO  TO  250 

97 

DHMTT-5 . * (F** . 25) / (S** . 375) 

98 

IF  (DHMTT.LT.DHB)  DHB-DHMTT 

99 

250 

DH  JX- 1 . 44*DS* (VS/UZ) ** . 667* (X/DS) ** . 333 

100 

IF  (DHJX.GT.DHJ)  DHJX-DHJ 

101 

DHBT-F** . 333*X** . 667/UZ* ( 1 . 065-6 . 25*DTDZ (IM) ) 

102 

IF  (IPC.EQ.1.0R.IPC.EQ.3)  WRITE(*,260)  X, DHH, DHB , DHBT, DHJX 

103 

IF  (IR.EQ.5. AND . X . GE . XMX)  GO  TO  270 

104 

IF  (IR . EQ.6. AND. DHJX. GE. DHJ)  GO  TO  270 

105 

260 

FORMAT  (6F10.2) 
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106 

IF  (X.EQ, 1.)  X-0. 

107 

X-X+DXT 

108 

GO  TO  240 

109 

270 

WRITE (*,260)  X , DHH , DHB , DHBT, DH J , P 

110 

IF  (IR.EQ.5)  HT-HS+DHBT 

111 

IF  (IR.EQ.6)  XMX-X 

112 

IF  (IR.EQ.6)  HT-HS+DHJ 

113 

RETURN 

114 

280 

DHBT-F** . 333*X** . 667/UZ* (1 . 065-6 . 25*DTDZ (IM) ) 

115 

HT-HS+DHBT 

116 

GO  TO  360 

117 

290 

DH JX- 1 . 44*DS* (VS/U2) ** . 667* (X/DS) ** . 333 

118 

IF  (DHJX.GT.DHJ)  DHJX-DHJ 

119 

HT-HS+DHJX 

120 

GO  TO  360 

121 

C 

30.  HEAT  RELEASED 

122 

300 

CALL  READA  (30, IRT, I A, HR) 

123 

IF  (IRT.LT.O)  GO  TO  300 

124 

C 

31.  CLOUD  RADIUS 

123 

305 

CALL  READA  (31 , IRT, IA.CR) 

126 

IF  (IRT.LT.O)  GO  TO  305 

127 

HT-0. 

128 

IF  (IM.LT.4)  GO  TO  330 

129 

IF  (IM.EQ.4)  S-G*3.322E-4/TA 

130 

ROA-352320 . *PMM/760 . /TA 

131 

RTS-S**.5 

132 

XMX-3. 14139*UR/RTS 

133 

X-XMX 

134 

WRITER, 310)  XMX 

135 

310 

FORMAT  ('  XMX- ' , F7 . 0) 

136 

320 

FT- 1 . -COS (RT$*X/UR) 

137 

FB-G*HR/ (3 . 14159*R0A*CP*TA) 

138 

IF  (IR.EQ.8)  GO  TO  350 

139 

HT- (3 . *FB*FT/ (S*GI**3)+ (CR/GI) **4) **.25- (CR/GI) 

140 

GO  TO  360 

141 

330 

WRITE(*,340) 

142 

340 

FORMAT  ('  HEIGHT  DEFINED  FOR  STABLE  CONDITIONS  ONLY') 

143 

RETURN 

144 

350 

HT- (3 . *FB*FT/ (UR*GC*GC*S) + (CR/GC) **3) ** . 333- (CR/GC) 

145 

360 

IF  (HT.LT.HML)  GO  TO  370 

146 

HT-HML 

147 

370 

WRITE (*,380)  HT 

148 

380 

FORMAT ('  HTS- ' , F7 . 2) 

149 

RETURN 

150 

END 

i 


i 


i 
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PS8T3.POR 


1  C  PASQUILL  STABILITY  CATEGORY  SELECTOR/  TURNER/CGW 

2  SUBROUTINE  STAB  (U, IS , IL, IM, ID) 

3  COMMON  SDM(68) , SLA, SLO.CC.CH, AE, SD2 (21), IHR, SD3 (15) 

4  CHARACTER *1  ISTA.MTC 

5  CHARACTERS  adh 

6  CHARACTER*3  INO.IMOT 

7  DIMENSION  AC(4) ,IST(7,8> ,I8TA(6) , IDC(12)  ,SE(4) 

8  DIMENSION  IMOT(12) ,SLAT(10) , BLOT(IO) 

9  DATA  AC/15.,33.,60.,90./ 

10  DATA  ISTA/'A','B','C','D','E','P7 

11  DATA  IST/6, 6, 4, 3, 2, 1,1, 6, 6, 4, 3, 2,2, 1,6,5, 4, 4, 3, 2, 1,6, 5, 4, 4, 3, 2, 2, 

12  15,4,4,4,3,3,2,5,4,4,4,4,3,3,4,4,4,4,4,3,3,4,4,4,4.4,4,3/ 

13  DATA  IDC/0, 0,3, 3,4,4, 5,5 ,5,6,6, 7/ 

14  DATA  IMOT  / ' JAN' , ' PEB 1 , 'MAR' , ' APR' , 'MAY' , ' JUN' , ' JUL' , ' AUG' , 

15  $  'SEP', 'OCT', 'NOV', 'DEC'/ 

16  DATA  VE.YRL  /0..0./ 

17  DATA  SE  /92. 78,93. 64, 89. 83,89./ 

18  DATA  HY  / 182 . 62/ 

19  DATA  PH  /l. 370796/ 

20  DATA  PI  /3. 141593/ 

21  DATA  P2  /6. 283183/ 

22  DATA  RD  /57. 2958/ 

23  DATA  8LAT/33. 7, 40. ,39. 3, 16. 7, 38. ,40. ,34. ,38. ,40. ,46./ 

24  DATA  SLOT/86. 1 , 113. , 76 . , 169.5,84. ,87.5,92. , 2*105 . , 120. / 

23  IF  (VE.GT.O.)  GO  TO  1 

26  WRITEO", *)  '  INPUTi  YEAR(1986)' 

27  READ  (*,*)  YR 

28  DY04“ (YR-1976.) /4. 

29  VE-79 .4931+ (DY04* . 9688) -AINT (DY04) 

30  IF  ( (DY04-AINT (DY04) ) , EQ . 0 . )  YRL-1. 

31  1  IF  (IL.LT.ll)  GO  TO  30 

32  C  32.  STATION  LATITUDE  AND  LONGITUDE 

33  10  CALL  DEF(32, IRT) 

34  IF  (IRT.EQ.O)  READ(*,*)  SLA.SLO 

33  GO  TO  40 

36  30  SLA-SLAT(IL) 

37  SLO-SLOT(IL) 

38  40  A-SLA/RD 

39  C  33.  MONTU. DAY, HOUR  (JAN, 01, 1200) 

40  CALL  DEF(33, IRT) 

41  IF  (IRT.EQ.l)  GO  TO  80 

42  READ(*, 1 (A3, 1X,BN,A20) ')  IMO.ADH 

43  READ (ADH, ' (BN , T 2 , IX, 14) ' )  ID, IHR 

44  60  DO  70  IM-1,12 

45  IP(IMO.EQ. IMOT(IM))  GO  TO  80 

46  70  CONTINUE 

47  GO  TO  40 

48  C  34.  CLOUD  COVER  (1/10) .CLOUD  HEIGHT  (FT) 

49  80  CALL  DEF  (34, IRT) 

50  IF  (IRT.EQ.O)  READ(\*)  CC.CH 
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51 

52 

33 

54 

C 

55 

56 

57 

58 

100 

59 

60 

61 

62 

63 

64 

65 

66 

110 

67 

120 

68 

69 

70 

71 

72 

73 

74 

130 

75 

76 

77 

78 

79 

80 

140 

81 

82 

150 

83 

84 

160 

85 

86 

87 

88 

170 

89 

180 

90 

190 

91 

92 

93 

94 

95 

96 

200 

97 

98 

HRC-IHR/100. 

HRS- (HRC- INT (HRC) 5/0.6+INT (HRC) 

IF  (IM.NE.O)  CO  TO  100 
35.  SUN  ELEVATION  ANGLE 
CALL  DEF(35,RT) 

IF  (IRT.EQ.O)  READ(*,*)  AE 
GO  TO  130 

Lj-(IM-1)*31-IDC(IM)+ID 
IF  (IM.GT.2)  DJ-DJ+YRL 
DV-DJ-VE 

IF  (DV.LT.O.)  DV-DV+365. 

DT-DV 

DO  110  1-1,4 

IF  (DT.LT.SE(I))  GO  TO  120 
DT-DT-SE(I) 

CONTINUE 

DL-SIN(PH*((I-l)+DT/SE(I)))*.409l 

EO- ( 1 0 . *S IN ( (DV+89 . ) /HY*P2) +7 . 73  *S IN ( (DV+ 78) /HY*PI) ) /60 . 
HDL-ACOS (- . 014538/COS (A) /COS (DL) - (TAN (A) *TAN (DL) ) ) / . 2618 
TC-12 . +EQ+ (SLO/ 13 . -AINT (SLO/13 . ) ) 

I SR- ( ( (TC-HDL) -AINT(TC-HDL) ) *.6+AINT(TC-HDL) ) *100. 

ISS- ( ( (TC+HDL) -AINT (TC+HDL) ) *. 6+AINT (TC+HDL)  )  *100. 

AE-A5 IN (SIN (A) *SIN (DL) +COS (A) *COS (DL) *COS ( (HR8-TC) *.2618)) *RD 
1-0 

IF  (CC.EQ.10.AND.CH.LT. 7000.)  GO  TO  190 

IF  (HRS.GT.  (13. -HDD.AND.HRS.lt.  (11. +HDL))  GO  TO  140 

1—2 

IF  (CC.GT.4.)  I— 1 
GO  TO  190 
DO  130  1-1,4 

IF  (AE.LT.AC(I))  GO  TO  160 

CONTINUE 

1-4 

IF  (CC.LT.6.0R.CH.GT. 16000.)  GO  TO  190 
IF  (CC . GT . 9 . OR . CH . GE . 7000 . )  GO  TO  170 
I— 1-2 
GO  TO  180 
1*1-1 

IF  (I.LT.l)  1-1 

1-1*3 

J-U+l. 

IF  (U.GT.6.)  J-8 
IS— 1ST ( I . J) 

MTC-ISTA(IS) 

WRITER, 200)  I SR,  ISS,AE,MTC 

FORMAT ('  SR 1 , 14, 3X,  '  SSM3,3X,'  AE'  ,F6.2,3X,  '  STAB  ’.Al) 

RETURN 

END 
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WOODS. FOR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


SUBROUTINE  WOODS  (11 ,  ALFA ,  S Y 1 00 ,  BETA ,  SZ 1 00 ,  WT) 

DIMENSION  UT (4) ,W(4,5) , ALW (4, 5) , SYW (4, 5) ,BTW(5) ,SZW(4,5) ,WTT(5) 

CHARACTER *2  WTT.WT 

DATA  UT/. 45, 2. 2, 5. 4, 8. 9/ 

DATA  W/. 089,. 45, 1.1, 1.8,. 089,. 36,. 8, 1.3,. 089,. 36,. 8, 1.3, 

$  .045,. 22,. 54,. 89,. 045,. 13,. 27,. 45/ 

DATA  ALW/. 8, 1. ,1. , 1.1,. 8, 3*1.,. 8, 3*1.,. 8, 7*1./ 

DATA  SYW/12. 8, 12. 1,12. ,12., 18. 2, 17. 5, 16. 8, 14. 5, 

S  23. 5, 22. 5, 19., 14., 29., 26. 5, 22. 5, 16. 5, 53., 36., 26., 23./ 

DATA  S2W/8. 97, 9. 66, 2*10. 35, 12. 96, 3*13. 78, 14. 59, 

S  3*15.4,4*20. ,4*34,5/ 

DATA  BTW/ 1.2, 1.3, 1.3, 1.4,1,/ 

DATA  WTT/'DW' , 'MW' . ' CF ' ,'MS' , ' RF ’ / 

36.  WOODS  TYPE 
10  CALL  DEF(36, IRT) 

IF  (IRT.EQ.O)  READ(*,30)  WT 
30  FORMAT (A2) 

DO  40  1-1,5 

IF  (WTT(I).EQ.WT)  GO  TO  60 
40  CONTINUE 
WRITE (*,50) 

50  FORMAT ('  WOODS  CODE  NOT  DEFINED') 

CALL  DEFC76.IRT) 

GO  TO  10 

60  IF  (U.GT.O.)  GO  TO  90 
U-ABS(U) 

DO  70  J-1,4 

IF  (W(J,I)  .GE.  U)  GO  TO  130 
70  CONTINUE 
80  ALFA-ALW(4, I) 

SY100-SYW (4, I) 

SZ100-S2W (4, I) 

GO  TO  140 
90  DO  100  J-1,4 

IF  CUT CJ) .GE.U)  GO  TO  110 
100  CONTINUE 
J-4 

110  IF  (J.NE.l)  GO  TO  120 
U-W(J.I) 

GO  TO  130 

120  S-ALOG(W(J,I)/W(J-l,I))/ALOG(UT(J)/UT(J-l)) 

U-W(J-1, I) * (U/UT (J“l) ) **S 
IF  (U.GT. W (4 , I) )  GO  TO  80 
130  DUW- (U_W (J~l,I))/(W(j,I) -W(J-1 , I) ) 

ALFA-ALW  ( J  - 1 , 1 )  +DUW"  ( AI.W  (  J ,  I )  -  ALW  ( J  - 1 , 1 ) ) 

SY100-SYW  ( J-l ,  I)  ■'•DUW*  (SYW  (J,I)-SYW(J-1,I)) 
SZ100-SZW(J-1,I)+DUW*(SZW(J,I)-SZW(J-1,I)) 

140  BETA-BTW (I) 

RETURN 

END 


DEF.FOR 


1 

SUBROUTINE  DEF(IQ.IRT) 

2 

COMMON  DDM (95) , NOV , DD1 (7) , IR , DD2 (6) 

3 

DIMENSION  IQT (40) , IQI (7) 

4 

DATA  IQI/2,3,5,6,8,9,10/ 

3 

IF  (IQ)  10,20,50 

6 

10 

IQQ-(-IQ) 

7 

IQT  (IQQ)-O 

8 

RETURN  * 

9 

20 

DO  40  1-1,40 

10 

30  IQT(I)-0 

11 

40 

CONTINUE 

12 

RETURN 

13 

50 

IF  (IQ.EQ.80)  CO  TO  140 

14 

IF  (IQ.CT.40)  CO  TO  110 

15 

IF  (IQ.EQ.40)  CO  TO  120 

16 

IF  (IQ.EQ.39)  GO  TO  130 

17 

IF  (IQT(IQ).EQ.O)  CO  TO  60 

18 

IRT-1 

19 

CALL  QLISTOQ,  IRT) 

20 

RETURN 

21 

60 

IRT-0 

22 

IFUQ.NE.  12. AND.  IR.NE.2)  WRITE(*,*) 

23 

CALL  QLIST(IQ.IRT) 

24 

IQT (IQ) -1 

25 

IF  (NOV-1)  70,90,100 

26 

70  WRITE (*,80) 

27 

80 

FORMAT ('  INPUT: '\) 

28 

RETURN 

29 

90 

IF  (IQ.EQ.2)  WRITE(*,1001) 

30 

IF  (IQ.EQ.3)  WRITE (*, 1007) 

31 

IF  (IQ.EQ.5)  WRITE (*, 1003) 

32 

IF  (IQ.EQ.6)  WRITE(*. 1004) 

33 

IF  (IQ.EQ.8)  WRITE(*, 1005) 

34 

IF  (IQ.EQ.9)  WRITE(*, 1006) 

35 

IF  (IQ.EQ.17)  WRITE (*, 1012) 

36 

IF  (IQ. EQ. 36)  WRITE (*, 1024) 

37 

GO  TO  70 

38 

100 

IF  (IQ. EQ. 1)  WRITE (*, 2000) 

39 

IF  (IQ.EQ.2)  WRITE (*,2005) 

40 

IF  (IQ.EQ.3)  WRITE(*,2010) 

41 

IF  (IQ.EQ.5)  WRITE(*,2020) 

42 

IF  (IQ.EQ.6)  WRITE (*,2030) 

43 

IF  (IQ.EQ.8)  WRITE (*, 2040) 

44 

IF  (IQ.EQ.9)  WRITE(*,2050) 

45 

IF  (IQ.EQ. 13. AND. IR.NE. 3)  WRITE(*,2 

46 

IF  (IQ.EQ. 13)  WRITE (*,2070) 

47 

IF  (IQ.EQ.17)  WRITE (*,2080) 

48 

IF  (IQ.EQ. 21)  WRITE(*,2090) 

49 

IF  (IQ.EQ. 23)  WRITE (*,2095) 

50 

IF  (IQ.EQ. 36)  WRITE(*, 21 10)' 
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I 


•5 

I 


I 


:4 


51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94  c- 

95  C 

96  C- 


GO  TO  70 
110  IQQ-IQ-40 
IQT(IQQ)-0 

IF  (NOV.GT.l)  RETURN 
115  IF  (IQQ.EQ.l)  WRITE (*,2000) 

IF  (IQQ.EQ.2)  WRITE(*,2005) 

IF  (IQQ.EQ.3)  WRITE(*,2010) 

IF  (1QQ.EQ.5)  WRITE (* , 2020) 

IF  (IQQ.EQ.6)  WRITE(*,2030) 

IF  (IQQ.EQ.8)  WRITE (*,2040) 

IF  (IQQ.EQ.9)  WRITE(*,2050) 

IF  (IQQ.EQ.17)  WRITE (*,2080) 

IF  (IQQ.EQ.21)  WRITE (*,2090) 

IF  (IQQ.EQ.23)  WRITE(*,2095) 

IF  (IQQ.EQ.36)  WRITE (*,2110) 

RETURN 
120  IQQ-IRT 

IF  (IQQ.GT.O)  GO  TO  115 
IF  (IRT.EQ.-l)  WRITE(*,601) 

IF  (IRT.EQ.-2)  WRITE(*,602) 

IF  (IRT.EQ.-3)  WRITE(*,603) 

IF  (IRT.EQ.-4)  THEN 
WRITE (*,604) 

PAUSE 

WRITE(*,605) 

PAUSE 

WRITE  (*,606) 

PAUSE 

WRITE  (*,607) 

PAUSE 
ENDIF 

WRITE (*,600) 

RETURN 

130  WRITE (*,500) 

PAUSE 

WRITE(* ,501) 

PAUSE 
RETURN 

140  WRITE(*,*)  '  LOC , SEA , MUN , AGN , REL , STB , WND ' 
DO  145  1-1,7 
145  IQT(IQI (I)  )-l 
NOV-O 
RETURN 


CONTROL  OPTION  AND  QUESTION  FORMAT  STATEMENTS 

600  FORMAT (// 

+'  TABLE  DISPLAY  CODES  1  CONTROL  OPTIONS', 5X, 

+  '2  ASSESSMENT  OPT  IONS 7 , 22X , 1 3  OUTPUT  OPTIONS' 

+,6X,'4  ALPHABETIC  LISTING'/) 

601  FORMAT (// 

+14X, 'CONTROL  OPTIONS'//, 6X, ’RST  RESTART 7 ,6X, ' RSN  RESCAN'/, 
+6X, ' ALL  EXECUTE' /,6X, 'STP  STOP ' // ,6X, ' GTO  GOTO' 
f’ QUESTION  NO.  (GTO  3)7,6X,'IRT  RETURN  TO  QUESTION  NO.  7, 
+6X.' 1NP  INPUT  QUESTION  NO. 7/ ,6X, 'HLD  HOLD  VARIABLE  ' 
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106  +  ' (HLD  KKL) '/,6X, 'RLS  RELEASE  VARIABLE'// ,6X, 'TAB  DISPLAY' 

107  +'  TABLE 7, 6X, 'DSP  DISPLAY  QUESTION  DEFINITION'/, 6X, ' ???  ' 

108  +'  LIST  OF  DISPLAY  CODES'/) 

109  602  FORMAT (/// 

110  +16X, 'ASSESSMENT  CONTROLS '//,5X, ' IMA-0  DOSAGE  (DEFAULT) 7, 

111  +9X, ' 1  CONCENTRATION  (MG/CU  M)  7.9X, '2  CONCENTRATION  (PPM)' 

112  +/,9X,'3  FUMIGATION  CONCENTRATION '//,5X, ’ 2MC-0  DO  NOT’ 

113  + ' USE  2-MINUTE  C0RRECTI0N7, 12X, 'WITH  GB  AMD  Va  VAPOR'/, 

114  +9X, ' 2  USE  2-MINUTE  CORRECTION  WITH’/, 12X, 'GB  AND  VX’ 

115  +'  VAPOR  (DEFAULT) '//,5X, 'MNR-0  NO  EFFECTS,  NO  DEATHS' 

116  +  ',  1*  LETHALITY 7, 9X, '1  NO  DEATHS,  IX  LETHALITY’/, 

117  +9X, ' 2  IX  LETHALITY '//,5X, 'VDP-0  W/0  VAPOR  DEPLETION  ' 

118  ♦ ' (DEFAULT) 7 , 9X , ' 1  W/ VAPOR  DEPLETION ' /) 

119  603  FORMAT (// 

120  +  15X, 'OUTPUT  CONTROLS 7/ ,5X, 'NOV-O  LIST  QUESTIONS  ONLY 7, 9X, 

121  +' 1  LIST  QUESTIONS  AND  OPTIONS 7, 9X, '2  LIST  OPTIONS  WITH* 

122  +'  DEFINITIONS '//, 5X,'OPO-0  OUTPUT  SHORT  HEADING  (DEFAULT) 7, 

123  +9X, ' 1  LIST  DOSAGE  AND  DISTANCE'/ ,9X, ' 2  ABOVE  PLUS  COMPON' 

124  + ' ENTS  OF  D'/,9X, '3  CLOUD  HALF-WIDTH  WITH  X7/.5X, 

125  +'OPC«0  USE  HT  MAX  FROM  PLRS'/,9X,'l  LIST  F(X),  USE  ' 

126  +'HT  MAX'/ ,9X, '2  USE  HT-F(X) '/,9X, '3  LIST  AND  USE  F(X) 7) 

127  604  FORMAT (// 


128 

+ 

CODE 

INPUT  VARIABLE’/ 

129 

4- 

AGN 

AGENT,  SEE  DSP  6  7 

130 

+ 

ALL 

CONTROL  WORD, EXECUTE  PROGRAM'/ 

131 

4* 

ALF 

SLOPE  OF  THE  SICMA-Y  VERSUS 

X  CURVE'/ 

132 

4* 

ARE 

AREA  OF  PUDDLE 

(M*2)’/ 

133 

+ 

BPT 

BOILING  POINT 

(DEG  K) ' / 

134 

♦ 

BRT 

BREATHING  RATE 

(L/MIN)  7 

135 

4 

BTA 

SLOPE  OF  THE  SICMA-Z  VERSUS 

X  CURVE'/ 

136 

4* 

CHT 

CLOUD  HEIGHT 

(FT)  ’  / 

137 

4- 

CRD 

CLOUD  RADIUS 

(M)  7 

138 

■f 

DLX 

CHANGE  IN  X  (FIRST  CYCLE) 

(M)  7 

139 

+ 

DST 

DIAMETER  OF  STACK 

(M)'/ 

140 

+ 

FMV 

MOLECULAR  VOLUME 

(CM* 3  /GM  MOLE) 7 

141 

♦ 

FMW 

MOLECULAR  WEIGHT'/ 

142 

FRO 

SLOPE  OF  THE  FROST  WIND  PROFILE'/ 

143 

+ 

CTO 

CONTROL  GO  TO  SPECIFIED  QUESTION'/ 

144 

+ 

HML 

HEIGHT  OF  MIXING  LAYER 

CM)  '  / 

145 

+ 

HLD 

HOLD  VALUE  OF  SYMBOL’/ 

146 

HRL 

HEAT  RELEASED 

(CAL) ’) 

147 

605 

FORMAT (// 

148 

♦ 

HRS 

LOCAL  STANDARD  MILITARY  TIME  (HP.S)  7 

149 

+ 

HST 

HEIGHT  OF  STACK 

(M)  7 

150 

+ 

HTS 

HEIGHT  OF  SOURCE 

(M)  7 

151 

4- 

ICC 

CLOUD  COVER 

(1/10)7 

152 

+ 

IDD 

NUMBER  OF  THE  DAY  7 

153 

+ 

IMA 

METHOD  OF  ASSESSMENT,  SEE  TAB  2  7 

154 

*r 

I  MM 

NUMBER  OF  THE  MONTH1/ 

155 

4- 

INP 

CONTROL.  CLEAR  INPUT  BLOCK 

FOR  QUESTION'/ 

156 

+ 

IRT 

CONTROL.  RETURN  TO  SPECIFIED  QUESTION'/ 

157 

+ 

LEN 

DOWNWIND  LENGTH  OF  PUDDLE 

(M)  7 

158 

4 

LOC 

LOCATION,  SEE  DSP  27 

159 

4 

MNR 

MINIMUM  RESPONSE  LEVEL,  SEE 

TAB  2  7 

160 

+ 

MUN 

MUNITION.  SEE  DSP  57 
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161 

+  • 

NCI 

NUMBER  OF  CONCENTRATIONS  OF  INTEREST'/ 

162 

+  • 

NDI 

NUMBER  OF  DOSAGES  OF  INTEREST'/ 

163 

+  ' 

NMU 

NUMBER  OF  MUNITIONS'/ 

164 

+  • 

NOV 

NOVICE  LEVEL'/ 

165 

+  ' 

NQI 

NUKRER  OF  SOURCE  INTERVALS') 

166 

606  FORMAT (// 

167 

+  ' 

OPC 

OUTPUT  FOR  STACK,  SEE  TAB  3'/ 

168 

OPO 

OUTPUT  CONTROL,  SEE  TAB  3  7 

169 

+  ' 

PMM 

ATOMOSPHERIC  PRESSURE 

(MM  HG) ' / 

170 

OQQ 

AIRBORNE  SOURCE 

(MG)  7 

171 

+  ' 

RDE 

RELATIVE  DENSITY  OF  EFFLUENT'/ 

172 

+  ' 

REF 

REFLECTION  COEFFICIENT  (DEFAULT1 

■1)7 

173 

REL 

METHOD  OF  RELEASE,  SEE  DSP  87 

174 

+  ' 

RLS 

RELEASE  HOLD  OF  SYMBOL  VALUE'/ 

175 

+  ' 

RSN 

RESCAN  FROM  QUESTION  27 

176 

RST 

CONTROL.  RESTART'/ 

177 

SEA 

SEASON,  SEE  DSP  37 

178 

+  ' 

SKr 

SKIN  FACTOR  FOR  SUBJECT  CLOTHING'/ 

179 

SLA 

LATITUDE 

(DEG) ’ / 

180 

+  ' 

SLO 

LONGITUDE 

(DEG)'/ 

181 

+  ' 

SMH 

SAMPLING  HEIGHT 

(M)  '/ 

182 

+  ' 

STB 

STABILITY,  SEE  DSP  9'/ 

183 

+  ' 

SUN 

SUN  ELEVATION  ANGLE 

(DEG)'/ 

184 

+  ' 

SUR 

SURFACE  TYPE,  SEE  DSP  13') 

185 

607  FORMAT (// 

186 

+  ' 

SEV 

SETTLING  VELOCITY  OF  CLOUD  CENTROID  (DEFAULT-0)  (M/SEC) 7 

187 

+  ' 

sxs 

SOURCE  SIGMA  ~X 

<M)  7 

188 

+  ' 

SYR 

REFERENCE  SIGMA  -Y  AT  100M 

(M)'/ 

189 

+  ' 

SYS 

SOURCE  SIGMA  -Y 

(M)  7 

190 

+  ' 

SZR 

REFERNCE  SIGMA  -Z  AT  100M 

<H)  7 

191 

+  ' 

szs 

SOURCE  SIGMA  -Z 

(M)  '/ 

192 

+  ' 

TEV 

TIME  OF  EVAPORATION 

(MIN)'/ 

193 

+  ' 

TIM 

TIME  AFTER  FUNCTIONING  (INS, HD) 

(MIN)'/ 

194 

♦  ' 

TMC 

TIME  TO  MET  CHANGE 

(MIN)’/ 

195 

+  ' 

TMP 

TEMPERATURE 

(DEG  C) ' / 

196 

+  ' 

TST 

TEMPERATURE  OF  STACK 

(DEG  C) ' / 

197 

+  ' 

VAP 

VAPOR  PRESSURE 

(MM  HG) ' / 

198 

+  ' 

CD? 

VAPOR  DEPLETION  INDICATOR,  SEE  ‘ 

rAB  2  7 

199 

+  ' 

VST 

VELOCITY  OF  EFFLUENT  FROM  STACK 

(M/SSC) ' / 

200 

+  ' 

WND 

TRANSPORT  WIND  SPEED 

CM/ SEC) ' / 

201 

♦  ' 

WOO 

WOODS  TYPE,  SEE  DSP  367 

202 

ZZO 

ROUGHNESS  LENGHT 

(CM)'/ 

203 

+  ' 

2MC 

TWO  MINUTE  CONNECTIONS  CONTROL, 

SEE  TAB  2') 

204 

c- 

205 

C 

NOV-1 

FORMAT 

STATEMENTS 

206 

C- 

207  1001  FORMAT  C8X,  ' AAD, DPC, LWA, JHI ,  LBG.NAP ,PBA, PAD,RMA,UAD,EUR,NDF'  1 

208  100?  FORMAT (8X , ' WIN , SPR , SUM , FAL ' ) 

209  1003  FORMAT (8X, ' 105, 155.8IN.500, 750, MSS, 525, 139,M23,4. 2, NON' ) 

210  1004  FORMAT (8X , ' GA , GB , GD , GF , VX , BZ , HY , UD, HD, HI ,H3 , HT , LL , AC , CG, CK ' , 

211  +  ' DM , NA ' ) 

212  1005  FORMAT (8X , ' INS , EVP , SEM , VAR , STK , ST J , FLS , FIR , 1 GL , EVS ' ) 

213  1006  FORMAT (8X, 1 A,n,C,D,E,F,U,S,W') 

214  1012  FORMAT(8X, 'GRA.NPR.NDF') 

215  1024  FORMAT (8X, 'DW,MW,CF,MS,RF') 
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216  C - 

217  C  NOV-2  FORMAT  STATEMENTS 

218  C - 

219  2000  FORMAT (8X, ' 0  SHORT  LISTING  FOR  THE  EXPERT 7 ,8X, ' 1  LISTS' 

220  S'  OPTIONS  FOR  MULTIPLE  CHOISE  QUESTIONS 7, 8X, '2  DEFINES' 

221  S'  ALL  OPTIONS  FOR  MULTIPLE  CHOISE  QUESTIONS '/, 8X, '3  EXPL' 

222  S'AINS  PROGRAM  INPUTS'/) 

223  2005  FORMAT (8X, 'AAD  ANNISTON  ARMY  DEPOT' /8X, 

224  S'DPG  DUGWAY  PROVING  GROUND  AND  TOOELE  ARMY  DEPOT'/  8X, 

225  S'EWA  EDGEWOOD  AREA.APG78X, '  JHI  JOHNSTON  ISLAND'/  8X, 

226  S'LBG  LEXINGTON-BLUE  GRASS  ARMY  DEPOT'/  8X, 

227  S 'NAP  NEWPORT  AMMUNITION  PLANT'/  8X,'PBA  PINE  BLUFF  ARSENAL' 

228  S/8X, ' PAD  PUEBLO  ARMY  DEPOT'/  8X, 'RMA  ROCKY  MOUNTAIN  ARSENAL' 

229  S/8X, ' UAD  UMATILLA  ARMY  DEPOT '/8X, 'EUR  USAEUR'/8X, 

230  S'NDF  NOT  DEFINED') 

231  2010  FORMAT(8X, 'WIN  WINTER '/8X, 'SPR  SPRING78X, 'SUM  SUMMER'/ 

232  $8X,'FAL  FALL') 

233  2020  FORMAT (8X,'  105  105-MM  CARTRIDGE, M60.M360  78X, 

234  S' 155  135-MM  PROJECTILE, KUO, M121A1 78X, 

235  $'8IN  8-INCH  PROJECTILE, M12678X, '500  500-LB  BOMB, MK94'/BX, 

236  S ' 750  750-LB  BOMB, MC-178X, 'M55  115-MM  ROCKET, M55  78X, 

237  $'525  525-LB  BOMB ,MKU6 '/8X, '  139  B0MBLET.M139 ' /8X, 

238  $'M23  LAND  MINE, M23  78X, '4.2  4. 2- INCH  CARTRIDGE, M2A4'/8X, 

239  S ‘NON  NONMUNITION') 

240  2030  FORMAT  (8X, 'GA  TABUN' ,15X, 'HI  HN-1, NITROGEN  MUSTARD'/  8X, 'GB  SA 

241  SRIN',15X,'H3  HN-3, NITROGEN  MUSTARD'/  8X, ' GD  SOMAN ', 15X, ' HT  60% 

242  SHD  4  40*4  T1  /8X,'GF  EA  1212' ,13X, 'LL  LEWISITE'/  8X,  'VX  EA  1701' 

243  S.13X, 'AC  HYDROGEN  CYANIDE'/  8X, 'BE  INCAP  AGENT ',  9X, ' CG  PHOSGEN 

244  SE ' /  8X, ' HY  HYDRAZINE' , 1 IX, 'CK  CYANOGEN  CHLORIDE'/  8X, 'UD  UDMH ' , 

245  S16X, 'DM  ADAMSITE'/  8X, 'HD  DISTILLED  MUSTARD' ,  3X, 'NA  NOT  AN  AGE 

246  SNT') 

247  2040  FORMAT (8X , ' INS  INSTANTANEOUS (EXPLOSIVE)  78X , ' EVP  EVAPORATION 

248  $  FROM  A  PUDDLE  FORMED  BY  A  SPILL '/8X, ' SEM  UNIFORM  RELEASE  FOR  A 

249  SFINITE  TIME'/8X,'VAR  SOURCE  DEFINED  AS  A  NUMBER  OF  UNIFORM  RELE 

250  $ASES (MAX  6)'/8X,'STK  RELEASE  OF  HEATED  EFFLUENT  FROM  STACK 78X, 

251  S'STJ  RELEASE  FROM  STACK  WITH  JET  EFFECT '/8X, ' FLS  FLASH  FIRE 

252  SFROM  GROUND  LEVEL78X.  'FIR  FIRE  BURNING  FOR  FINITE  TIME'/8X, 

253  S'  IGL  M55  IGLOO  FIRE78X,'EVS  EVAPORATION  IN  STILL  AIR') 

254  2050  FORMATC8X, 'A' ,5X, 'VERY  UNSTABLE'/  8X, ’ B ' ,5X, ' UNSTABLE '/8X,  'C',5X, 

255  $  'SLIGHTLY  UNSTABLE'/, 8X, 'D' ,5X, 'NEUTRAL'/, 8X, 'E' ,5X, 

256  $  'SLIGHTLY  STABLE'/, 8X, ' F ' ,5X, 'STABLE'/, 8X, 'U' ,5X, 

257  $  'UNDEFINED'/, BX, 'S', 5X, ' SELECT (PASQUILL) 7, 8X,'W',5X, 

258  $  'WOODS') 

259  2060  FORMAT (8X, ' NQI  NUMBER  OF  TIME  INTERVALS') 

260  2070  F0RMAT(8X,  ' Q 0  SOURCE  FOR  EACH  INTERVAL’/, 

261  $7X, 'TOO  CUMULATIVE  TIME  FROM  BEGINNING  OF  FIRST') 

262  2080  FORMAT (8X, 'GRA  GRAVEL 78X, ' NPR  NONPOROUS (CONCRETE) '/8X, 'NDF  NOT 

263  $  DEFINED’) 

264  2090  FORMAT (8X, 'FMW  MOLECULAR  WEIGHT ', /8X, ' FMV  MOLECULAR' 

265  S'  VOLUME '/8X, ’VAP  VAPOR  PRESSURE  (MM  HG) '/8X, 

266  S’BPT  BOILING  POINT  (DECK)'/) 

267  2095  FORMAT v8X, ' 0  USE  HT  MAX  FROM  PLRS'/,8X,'l  LIST  F (X) , ' 

268  $'  USE  HT  MAX7.8X, '2  USE  HT-F(X)  ' / ,8X,  '3  LIST  F (X)  ,  ' 

269  S’  USE  HT*F (X/) ’) 

270  2100  FORMAT (8X, 'GRA  GRAVEL,  LOOSE  EARTH '/8X, 'NPR  NONPOROUS, 
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271  $  CONCRETE,  BLACKTOP ' /8X, ' NDF  NOT  DEFINED'/'  NOTE:  THIS  CODE 

272  $  ONLY  DETERMINES  THE  SIZE  OF  THE  WETTED  SURFACE') 

273  2110  FORMAT (8X, 'DW  DECIDUOUS,  WINTER'/  8X, 'MW  MIXED,  WINTER'/  8X, 

274  5'CF  CONIFEROUS  FOREST'/  8X, 'MS  MIXED  SUMMER'/  8X, 

275  S'RF  RAIN  FOREST') 

276  300  FORMAT (// 

277  $'  THE  OPERATOR  MAY  CONTROL  THE  LENGTH  OF  THE  QUESTIONS  BY'/ 

278  S'  SPECIFYING  THE  NOVICE  LEVEL.  LEVEL  2  WILL  DEFINE  ALL  OPTIONS,'/ 

279  S'  LEVEL  1  WILL  LIST  THE  OPTIONS  AND  LEVEL  0  WILL  ONLY  STATE  THE'/ 

280  S'  QUESTIONS.  RESPONDING  WITH  QUESTION  MARKS  PROVIDES  THE  LEVEL'/ 

281  S'  2  LIST  AND  THE  QUESTION  IS  REPEATED. 7 

282  S'  THE  SEQUENCE  OF  QUESTIONS  IS  DETERMINED  BY  THE  ANSWERS'/ 

283  S'  GIVEN.  UNITS  ARE  STATED  FOR  NUMERIC  INPUTS.  "FOREIGN"  UNITS'/ 

284  S'  MAY  BE  CONVERTED  BY  PRECEEDING  THE  NUMBER  WITH  THE  CHARACTER  7 

285  S'  CODE  IDENTIFYING  THE  UNITS.  TWO  QUESTION  MARKS  WILL  CAUSE  THE  7 

286  S'  CODE  LIST  TO  BE  DISPLAYED. 7 

28?  $'  THE  QUESTIONS  TERMINATE  WITH  ALL  OTHER  INPUT. 7 

288  S'  HERE  ONLY  CONTROL  OPTIONS  OR  DATA  CHANGES  MAY  BE  ENTERED. 7 

289  S'  AGAIN  QUESTION  MARKS  WILL  DISPLAY  THE  OPTIONS  LIST.  CONTROL  7 

290  S'  OPTIONS  INCLUDE  RESTART (RST) ,  STOP(STP)  AND  GO  TO (CTO)  ANY'/ 

291  $'  QUESTION  NUMBER.  THE  CODE  ALL  WILL  COMPLETE  THIS  INPUT  AND'/ 

292  S'  CAUSE  THE  DOWNWIND  HAZARD  TO  BE  COMPUTED. '////) 

293  301  FORMAT (/ 

294  S'  IF  THE  CHANGES  MADE  IN  THE  ALL  QUESTIONS  CAUSE  THE'/ 

295  $'  PROGRAM  TO  REACCESS  ITS  DATA  BASE  THE  INPUT  LOGIC  IS  RE-'/ 

296  S'  SCANNED.  THIS  IS  SHOWN  BY  A  DISPLAY  OF  THE  INPUT  QUESTIONS,'/ 

297  S'  BUT  NO  INPUT  IS  REQUIRED  UNLESS  NEW  QUESTIONS  ARE  ASKED.  THE'/ 

298  S'  PROGRAM  AGAIN  STOPS  AT  THE  ALL  QUESTION,  AND  WILL  PROCEED'/ 

299  S'  WITH  THE  ANSWER  ALL.'/'  WHEN  THE  DOWNWIND  HAZARD  ESTI-'/ 

300  S'  MATE  HAS  BEEN  MADE  THE  PROGRAM  WILL  TERMINATE  AT  THE  ALL'/ 

301  S'  QUESTION.  THE  OPERATOR  MAY  CHANGE  INDIVIDUAL  PARAMETER  VALUES'/ 

302  S'  [INCLUDING  NOV]  AND  REPEAT  THE  RUN  OR  RESTART  OR  STOP.'/ 

303  S'  A  HOLDtHLD]  KAY  BE  PLACED  ON  ANY  VARIABLE  IF  YOU  DO  NOT  WISH'/ 

304  $'  ITS  VALUE  TO  BE  CHANGED  BY  RESCAN  OF  THE  DATA  BASE.  INPUT  HLD'/ 

305  S'  AND  THE  VARIABLE  CODECEG.  HLD  HML) .  RLS  WILL  RELEASE  THE  HOLD. 7 

306  $'  FOR  MORE  INFORMATION  SEE  CHEMICAL  SYSTEMS  TECHNICAL  REPORT'/ 

307  $'  ARCSL-TR-82014. '///////) 

308  END 
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1  SUBROUTINE  UNT (UM, IA.PRT) 

2  DIMENSION  UMT(25) ,UC (25) ,DN25 (18) ,MNE(34) , IK(25) 

3  CHARACTERS  UM.UMT 

4  CHARACTERS  MNE 

3  DATA  UMT/ '  AT ' , '  BR ' , '  CM ' , '  DF ' , '  FT ' , '  SF ' , '  GM ' , '  HR ' , '  IN ' 

6  $  'KT',  '  LB ' , '  MT ' , '  PM ' , '  M3 ' , '  MH ' , 1  MB ' , 1 02 1 , '  SC ' , '  TM ' , 

7  S  ’TN'.'GL',  ' LT ' , ' ML ' , ' PT ' , ' QT ' / 

8  DATA  UC/760., 750. ,.01,1. ,.3048, .0929, 1000. ,60. ,.0254, 

9  $  .5148,  4. 53592E5, 3. 281, .01667, .001, .447, .75, 28349. 5, 

10  S  .01667,  1 .E9.9.0718E8, 3. 785E6, 1 . E6 , 1000. .4.732E5, 

11  S  9.464E5/ 

12  DATA  DN25/1. 0887, 1.0083, 1.268, .687,1.37,1.18,1.073, 

13  5  1.0222, 1.12765, 1.09, 1.24, 1.66, 1.89, 1.011, .7914, 

14  $  .51,1.65,0./ 


13 

DATA  MN2/ '  ATM' , '  BAR' , '  CM' , '  DEC 

F','  FT' 

16 

$  '  SQ  FT','  CM1,'  HR','  IN',' 

KT' , '  LB 

17 

$,'  M','  M/MIN'.'C  M/MN','  MI/HR',' 

MB','  OZ 

18 

SEC ' , ' TON (M) ' , '  TON','  GAL',' 

L' , '  ML 

19 

$,'  PT','  QT'.'MM  HG'.'DEC  C','SQ  M' 

$ 'M/SEC '.'L/MIN'.'M',  'FT'/ 

DATA  IK/26,26,33,27,33,28,29,30,33,31,29, 

, 'MG', 'MIN', 

20 

21 

34,31,32,31, 

22 

$  26,29,30,7*29/ 

23 

15  DO  1  IC-1,25 

24 

IF  (UM.EQ.UMT(IC))  GO  TO  2 

25 

1  CONTINUE 

26 

WRITE(*,6) 

27 

6  FORMAT  C  UNIT  CODES') 

28 

DO  9  1-1,5 

9  WRITE (*,10)  (MNE(II) ,UMT(II) ,11-1,25,5) 

29 

30 

10  FORMAT  (1X,5(A6, '■' ,A2,3X)) 

31 

UM-'ND' 

32 

RETURN 

33 

2  PRT"PRT*UC (IC) 

34 

IF  (IC.EQ.4)  PRT-(PRT-32)/1.8 

35 

IF  (IC. LT. 21)  GO  TO  8 

36 

IF  (IA.LT.18)  GO  TO  3 

37 

WRITE(*,4) 

38 

4  FORMAT  ('  INPUTS  AGENT  DENSITY') 

39 

READ(*,*)  DN25 (18) 

40 

3  PRT-PRT*DN25(IA) 

41 

8  IO-IK(IC) 

42 

WRITE (* , 7)  MNE(IC) ,MNE(IO) ,PRT 

43 

7  FORMAT  (IX, A6,'  TO  \A5,E9.3) 

44 

14  RETURN 

45 

END 
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Ql I ST. FOR 


1 

2 

3 

4 
3 
6 

7 

8 
9 

10 

11 

12 

13 

14 
13 
16 

17 

18 

19 

20 
21 
22 

23 

24 
23 
26 

27 

28 

29 

30 

31 

32 

33 

34 
33 

36 

37 

38 

39 

40 

41 

42 

43 

44 
43 

46 

47 

48 

49 
30 


SUBROUTINE  QLIST (IQ, IRT) 

CHARACTER* 1  MTC.AAl , AB1 
CHARACTER *2  AGNT.AA2.WT 

CHARACTER *3  HUNT , REL , LOCT , SEAT , SUR , S YM 

CHARACTER* 12  ADH 
CHARACTER *30  QTAB 

COMMON  NQI , QT (6) , TWL (6) , D (10) , DL ( 1 0) 

COMMON  PR(1) .DXT.HT.KML.SXS.SYS. SZS . TIVCH.UT.BR, SF.TMP, ALFA, SY100, 

♦  BETA.SZ100.2.RC, V.QS 

COMMON  TEVP , SA , FL , FMW , FMV , VP , BP 

COMMON  HS,D$, TSC, VS,RDE,PP,HR,CR 

COMMON  SLA , SLO , CC , CH , AE , FMM, ZO 

COMMON  LOCT ( 1 ) , SEAT , MUNT , AGNT , AAl , REL , MTC , AA2 , 

$  SUR  WT  ABl  ADH  ADR  AD2 

COMMON  IPR(l) iND.lPO, Z2Kc| IMA, IPC, IMM, IDD, IHR.NOV, INP.MRL.NMU, ID2, 

♦  IDEP.IMTCH, 1M, JR, IL, IRL, ISM, IVD.K33.K42 
DIMENSION  IQM(36),IQR(36),QTAB(37),SYM(37) 

DATA  IQR  /63, 43. 44, 4,43, 46, 0,47, 48, 9, 13. 12, 0,24,0, 41,49, 21, 

♦  22,23,24,1,39,28,29,30,31,32,33,34,33,36,60,38,40,30/ 
DATA  IQM  /  10*1,4,9*1,4,10*1,2,3,2,1,1/ 

DATA  QTAB/ 

$ 1  YOUR  NOVICE  LEVEL i  3,2,1  OR  0 
$' SEASON 
$ 'MUNITION  TYPE 

8 'SPILL  OR  AIRBORNE  SOURCE  (MG) 

8 'STABILITY  TYPE 
S'ALF,  SYR(M),  BTA,  SZR (M) 

8 '  Q  ()  (MG)  ,  TQ  ()  (MIN) 

8' ALL  OTHER  INPUT 
8 'SURFACE  CODE 

8' AREA  OF  WETTED  SURFACE  (SQ  M) 

8 'FMW, FMV, VAP (MM  HG) , BPT (DEG  K) 

$' OUTPUT  CONTROL  CODE 
8 'DIAMETER  OF  STACK  (M) 

8 'VELOCITY  OF  EFFLUENT  (M/SEC) 

8 'FROST  PROFILE  EXPONENT 
8 'CLOUD  RADIUS  (M) 

8 'MONTH, DAY, HOUR:  (JAN , 01 , 1200) 

8 'SUN  ELEVATION  ANGLE  (DEG) 

♦'AND  ROUGHNESS  LENGTH  (CM) 

DATA  SYM/ 

8’NOV' , 'LOC' , 'SEA' , 'HML' , 'MUN' , ' AGN ' , ' QQQ ' , 'REL 
S'  ' , ' TMP ' , '  ' , ' FMW ' , '  ' , ' PMM ' , ' SUR ' , ' TEV 


, 'LOCATION 

, 'HEIGHT  OF  MIXING  LAYER 
, 'AGENT  TYPE 
, 'RELEASE  TYPE 
,'WINDSPEED  (M/SEC) 

, 'TEMPERATURE  (DEG  C) 

, 'MOLECULAR  WEIGHT 
, 'ATMOSPHERIC  PRESSURE  (MM  HG) 

, 'TIME  OF  EVAPORATION  (MIN) 

, ’ LENGTH  OF  SURFACE  DOWNWIND  (M) 
, 'TIME  AFTER  FUNCTIONING  (MIN) 

, 'HEIGHT  OF  STACK  (M) 

, 'TEMPERATURE  OF  STACK  (DEG  C) 
.'RELATIVE  DENSITY  OF  EFFLUENT 
, 'HEAT  RELEASED  (CAL) 

.'STATION  LATITUDE  AND  LONGITUDE 
, 'CLOUD  COVER (1/10) .CLOUD  HT(FT) 

, 'WOODS  TYPE 
/ 


'TIM' , 'OPC' , ' HST ' , ' DST ' , ' TST ' , 'VST' , ' RDE ' 


'STB' , ' WND' , 
'ARE' , 'LEN' , 
'FRO' , 'HRL' , 


I  I 
I 


I  I 
I 


’ , 'SUN' , 'WOO' , ' ZZO ' / 


8 'CRD' , ' 

IF  (IQ.GT.36)  RETURN 
IF  (IQ.EQ. 17.OR.lQ.EQ.22.OR.IQ.EQ.16.OR.IQ.EQ. 23. OR. 
+ IQ.EQ. 29. OR. IQ.EQ. 36)  WRITE (*,*} 

IF  (IRT.EQ.l)  GO  TO  10 
IF  (IQ.EQ. 13.AND.IR.NE.3)  THEN 
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51  WRITE (*,104)  IQ,QiA8(IQ) ,SYM(IQ) 

52  RETURN 

53  ENDIF 

54  WRITE (*, 100)  1Q,QTAB(IQ) ,SYM(IQ) 

55  IF  (IQ.E;1  30. AND. IR. EQ. 8)  WRITE (*.  107) 

56  IF  (IQ.EQ.29.AND.IVD.EQ.1)  WkITEC*, 106)  QTABC37)  ,SYM(37) 

57  RETURN 

58  10  IF (IQ. EQ. 13 .OR. IQ. EQ. 7)  THEN 

59  WRITE (*, 105)  IQ,QTAB(IQ) , (QT(I) ,TWL(I) ,I“1,NQI) 

60  RETURN 

61  ENDIF 

62  IC-XQR(IQ) 

63  IN-IQM(IQ) 

64  IF  (IC.LT.43)  WRITE(*,101)  IQ.QTAB(IQ) ,SYM(IQ) , 

65  $ (PR  (IC+I-1) , 1*1  *  IN)  ' 

66  IF(IC. CT.42.AND.IC.LT. 54)  WRITE (*, 102)  IQ.QTAB(IQ) ,SYM(IQ) , 

67  8 (L0CT(IC-42+I-l) , 1*1 , IN) 

68  Ir  (IC.GT.54)  WRITE(*, 103)  IQ.QTAB(IQ) ,SYM(IQ) , 

69  8  (IPR  (IC-33+I-1) , I"l, IN) 

70  IF ( IQ. EQ. 29. AND. IVD.EQ. 1)WRITE(* , 106)QTAB (37) , SYM(37) ,20 

71  IF  (IQ. EQ. 30. AND. IR.EQ.8)  WRITE (*, 107) 

72  RETURN 

73  100  FORMAT (IX, 12, ' .  ' ,A30,A3) 

74  101  FORMAT (IX,  12, ' .  '  .ASO.AS^FIO^) 

75  102  FORMAT (IX, 12, ' .  ' , A30,A3,2X,a3) 

76  103  FORMAT (IX, 12, '.  ' ,A30,A3,3l7) 

77  104  F0RMAT(1X,I2,\  NQI , '  ,A30,A3) 

78  105  F0RMAT(1X, 12, 1 •  ' ,A30,1P2E10.3,/(33X,2E10.3)) 

79  106  FORMAT (5X.A30, A3, FI 0.2) 

80  107  FORMAT (17X, '  FOR  FIR  (CAL/SEC)') 

81  END 


RE ADA. FOR 


1 

2 

3 

4 

5 

6 
1 
8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


10 

12 

13 


14 


SUBROUTINE  READA(:Q, IRT, IA.PRT) 
CHARACTERS  CARD 
CHARACTER *2  UM 
CALL  DEF(IQ, IRT) 

IF (IRT.NE. 0)  RETURN 
R£AD(*, ' (BN,A80) ')  CARD 
READ(CARD,10,ERR"12)  PRT 
FORMAT (BN, FI 2.0) 

RETURN 

RE AD (CARD, 13, ERR- 14)  UM.PRT 
FORMAT (BN, A2, FI 2.0) 

CALL  UNT(UM, IA.PRT) 

IF  (UM.NE.'ND’)  RETURN 
CALL  DBF (- IQ, IRT) 

IRT- (-1) 

RETURN 

END 


ERFF.FOR 

1  C  ERROR  FUNCTION  (HASTINGS  APPROXIMATION) 

2  FUNCTION  ERFF  (A) 

3  DATA  Al/0.070523C78/,A2/0.04228Zul2/,A3/0. 0092705272/ 

4  DATA  A4/0. 0001520143/ ,a5/0. 0002765672/ ,A6/. 0000430638/ 

5  DATA  C/1./ 

6  C-SIGN(C.A) 

7  Z-ABS(A) 

8  IF  (Z.LT.. 000001)  GO  TO  1 

9  IF  (Z.GT.4.)  GO  TO  2 

10  ERR- ( ( ( ( ( (A6*Z+A5) *Z+A4)  *Z*a3) *Z+A2) *Z+A1)  *2+ 1 . ) **16 

11  ERR-ABS(1.-(1./ERR)) 

12  ERFF-ERR*C 

13  RETURN 

14  1  ERFF-0. 

15  RETURN 

16  2  ERFF-C 

17  RETURN 

18  END 


1  SUBROUTINE  IGLO(QTS,TWL,NQI , INU, IA, IR) 

2  DIMENSION  QTS<6) ,TWL(6) ,EPF(3) ,TWLT<3) 

3  DATA  EPF/. 022932,. 0013 12,. 000756/ 

4  DATA  TWLT/15.,20. ,60./ 

5  IP  (IA.GT.2.0R.IMU.NE.6)  GO  TO  3 

6  IP  (XA.EQ.2)  GO  TO  2 

7  DO  1  1-1,3 

8  QT8 (I) -4 , 99E6*EPP ( I ) 

9  V  TWLtt)-TWlT(I) 

10  NQI-3 

11  IB-4 

12  R2TURN 

13  2  QTS  (1 ) -4 . 45E6* .00164 

14  TWL(l)-5. 

15  NQI-1 

16  IR-3 

17  RETURN 

18  3  WRITE<*,*)  1  IGL  IS  ONLY  DEFINED  FOR  M55  WITH  GB  OR  VX. ' 

19  RETURN 

20  END 
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VDPL.FOR 


$ 


m 


,x< 

,w 


K: 


1 

2 

3 

4 
3 
6 

7 

8 
9 


10 

11 

12 

13 

101 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

50 

24 

25 

26 

60 

27 

28 

29 

C 

30 

102 

31 

10 

32 

33 

34 

35 

36 

37 

38 

39 

20 

40 

41 

42 

43 

30 

44 

45 

31 

46 

47 

35 

48 

37 

49 

.50 

38 

SUBROUTINE  VDP L (QTTL , S Y , SZ , D1 , X , DX , DXA , XS , XCH , DP , DP A , SDEPL , INT) 
COMMON  VDM (41) ,UT,VDM1(23) ,PP,VDM2(8) ,ZO,VDK3(13) , 
+IP0,I2MC,IMA,VDM4(11) ,IM,1R,IL,VDM5(3) ,K33,K42 
DIMENSION  FKMS (6) ,Z0T(12) ,DDD(10) ,DDL(10) ,DDBR(10)  , 

♦ARD(IO) ,PT(6,3) « ITT (12) , Y(1Q) 

DATA  PT/. 05,, 03,. 1,. I,. 15,. 15,. 05,. 1,. 15,. 2,. 23,. 3,. I, 

+.15, .2, ,25, .3, .35/ 

DATA  ITT/3,2,3,1,3,2,3,2,2,3,3,0/ 

DATA  FKMS/. 9, .8, .6, .4, .2, .05/ 

DATA  Z0T/100. , .03, 100. , .005, 100. , 10. , 100. ,100. , 100. , 

+100. ,100. ,100./ 

GOTO (101 , 102, 103,104) INT 
ITI-ITT(IL) 

IF(K33.EQ.O. AND.IL.LT. 12. AND.IM.LT. 7)  FP-PTUM,  ITI) 

IF  (K42.EQ.0.AND, IL.LT, 12)  ZO-ZOT(IL) 

UZ-UT*.005**FP 
USTR-FP*FKMS(IM) *UZ 
DVF2-USTR/UZ 
DVF1-DVF2*USTR 

BINV-0 . 06*  (19600. *USTR*Z0)  ** .  45 
DEPV-DVF1/(1.+DVF2*BINV) 

WRITE(*,30) 

FORMAT  </5X , ' FP ' , 7X , ' FKMS ' , 7X , ' UT ' , 7X , ' USTR ' , 

+6X, 'BINV ,6X, ' DEPV 1 ,6X, 'QTTL') 

WRITE (* , 60)  FP , FKMS ( IM) , UT , USTR , B INV , DEPV , QTTL 
F0RMAT(1X, 1P7E10.3) 

DEPV60"DEPV*60. 

RETURN 

ENTRY  VDPL1 (SY , SZ , Dl) 

DO  10  1-1,10 
ARD(I) -0. 

DDMX-QTTL/ (188. 496*SY*SZ*UT) 

DDD(l) -Dl/10. 

DDDL- (ALOG (DDMX) -ALOG (DDD ( 1) ) ) /9 . 

DDL ( 1) -ALOG (DDD (1)) 

DO  20  1-2,10 

DDL (I) -DDL (I- 1) +DDDL 

DDD (I) -EXP (DDL (I)) 

DDBR (1-1) * (DDD(I-l) +DDD(I) ) /2 . 

IF  (IPO.NE.4)  RETURN 
IF  (IMA.GT.O)  GO  TO  35 
WRITE  O', 30)  (DDD(I), 1-1,10) 

FORMAT (/6X , ' DOSAGE  CONTOURS ’ , 10F5 . 0) 

WRITE  (*,31) 

FORMAT (/7X, 'X' ,7X, 'DP',4X, 'CONTOUR  HALF-WIDTHS') 

RETURN 

WRITE(*,37)  (DDD(I) ,1-1,10) 

FORMAT (/ 7X , 'CONC.  CONTOURS' .10F3.0) 

WRITE (*,38) 

1‘ORMAT (/7X,  'X'  ,7X,  ' CP '  , AX,  'CONTOUR  HALF-WIDTHS') 
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'•  .  -  ,  »  .v( 

■A  <* 


51 

RETURN 

52 

C 

ENTR Y  VDPL2 (X , DX , DXA , XS , XCH , DP , DP A, SDEPL) 

53 

103 

DP-DP*SDEPL 

54 

DPA-DPA*8DEPL 

55 

IP  (DPA.LE.O)  RETURN 

56 

DPLA-ALOG(DPA) 

57 

DO  70  IY-1,10 

58 

ARG-DPLA-DDL(IY) 

59 

IF  (ARG.IT.O.)  GO  TO  80 

60 

Y(IY)-1.41421*SY*$QRT(ARG) 

61 

IP  (X.NE.XCH)  ARD(IY) "ARD(IY)+Y (IY) *DXA 

62 

IP  (X.EQ.XCH)  ARD<IY)-ARD(IY)-Y(IY)*(X$+DX-XCH) 

63 

70 

CONTINUE 

64 

IY-11 

65 

80 

QD-0. 

66 

IP  (IPO.GT.O)  WRITE (*, ' (P5.2) ')  SDEPL 

67 

IY-IY-1 

68 

DO  90  1-1,9 

QD-QD+DDIR  ( I  >  *  (ARD  ( I)  -ARD  (I  ♦  i  ) )  ’"'DSP V60 

69 

90 

70 

SDEPL- (QTTL-QD) /QTTL 

71 

IP  (SDEPL. LT.O.)  8DEPL-1.E-20 

72 

IP  (IP0.EQ.4)  WRITE (*, 100)  X,DPA, (Y(I) ,1-1, IY) 

73 

100 

FORMAT ( IX ,F10.0, 1PE10.3,0P10P5.0) 

74 

RETURN 

75 

C 

ENTRY  VDPL3 

76 

104 

WRITER,*)  '  C  OR  D  AREA' 

77 

WRITER, '  (IX,  1P2E10.3)  ')  (DDD(I)  ,ARD(I)  ,  1-10, 1, 

78 

RETURN 

79 

END 

HMLHDR 1 . FOR 


Kh 

% 

;.;h 

r 

* 


b* 

)»:  : 


1  DATA  HKLT/2*82C., 710., 600., 420., 170., 2*1500., 1060. ,620., 360., 

2  1  170. ,2*1670. , 1080. ,490. ,440. ,310. ,2*1340. ,945. ,550. ,360. ,160. , 

3  2  2*540. ,377. ,215. ,100. ,50. ,2*2310. ,1277. ,245. ,150. ,100., 

4  3  2*3625. ,1892. ,200. ,100. ,80. ,2*1470. ,845. ,220. ,100. ,80., 

5  4  2*780. ,750. ,720. ,530. ,180. ,2*1720. ,1285. ,850. ,470. ,140., 

6  5  2*1970., 1245., 525., 360., 210., 2*1300. ,925., 550., 400., 130., 

7  6  4*2000. ,1250. ,500. .4*2000. ,1250., 500. ,4*2000. ,1250., 500., 

8  7  4*2000. , 1250. ,500. , 2*740. , 765 . , 790. ,640. ,430. , 2*1500. , 1215 . , 

9  8  930. ,560. ,340. .2*1530. , 1005. ,480. ,340. ,250. ,2*1230. ,975. ,720. , 

10  9  470., 280., 2*430. .440., 450.  320. , 130. ,2*1170. ,840. ,510. ,320. ,120. , 

11  $  2*1440., S95., 350., 250., 140., 2*990., 715., 440., 260., 100., 

12  1  2*780. ,705. ,630., 520. ,160. ,2*1460. ,1065. ,670. ,510., 160., 

13  2  2*1770., 1220., 670., 550., 220., 2*1270. ,975., 680., 550., 140., 

14  3  2*1020. ,550. ,3*85. ,2*2780. , 1480. ,3*185 . ,2*3290. , 1785. ,3*180. , 

15  4  2*2010. ,1050. ,3*95. ,2*1020. ,550. ,3*85. ,2*2780; , 1480. ,3*185. , 

16  5  2*3290. ,1785. ,3*180. ,2*2010. , 1050. ,3*95. ,2*370. ,345. ,320. ,290. , 

17  6  280., 2*1900., 1160., 420., 220., 200., 

18  7  2*2455. ,1427. ,400. ,145. ,130. ,2*1145. ,667. ,190. ,135. ,115., 

19  8  2*700. ,450. ,200. ,150. ,100., 2*1200. ,750. ,300. ,200. ,150., 

20  9  2*1500. ,1000. ,500. ,300. ,200. ,2*1000. ,650. ,300. ,200. ,150./ 

21  DATA  QF/ 

22  $7.39E5,2.95E6,6.58E6,4.9E7,9.98E7,4.99E6,1.58E8,5.9E5,0.,0., 

23  $0. , 2.72E6.6.58E6.0. ,0. ,4.54E6,0. ,0. .5.22E6.0. , 

24  $1 .35E6.4.4E6.0.  ,0.,0.,0.,0.,0.,0.  ,2. 72F-6/ 

25  DATA  SYSH/ 1.9, 3. 5 ,5.0, 12. ,17. ,4,4,21.,1.7,0.,0./ 

26  DATA  SZ5M/. 63. 1.2, 1.7, 4. 0,5. 7, 1 .5,7.0, .6,0. ,0./ 

27  DATA  PMMT/747. ,651. ,760. ,761. ,737. ,742. ,755. , 

28  $  641. ,628., 730., 752., 0./ 

29  DATA  Dl/. 5, 6. ,10. ,.4, 2, 5, 4. 3,2., 100. , 150. ,670. ,810. , 1180. , 

30  $120. ,320. ,385. ,1525. ,1850. ,1.E36,1. , 12. ,20. , .5,6. ,10. , 

31  $. 5, 6., 10., 2. ,100., 150., 2., 100., 150., 1., 50., 75., 

32  $2. , 100. , 150. , 1 .E36, 1 .E36, 1 ,E36, 1 .E36, 1.E36, 1 .E36, 

33  $1. E36.1. E36.31., 4., 2240. ,1.E36/ 

34  DATA  FKWT/140. 1,267. 4, 159. 1,27. 02, 98. 92, 61. 48, 162. 18, 182. 18, 

35  $  180.2,170.08.204.54,189.4,207.35,32.05,60.1,337.4,277.57/ 
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APPENDIX  F 
SAMPLE  PROBLEMS 


APPENDIX  F 


SAMPLE  PROBLEMS 


1.  GB  EXAMPLE 

Find  the  'no  deaths'  distance  resulting  from  the  detonation  of  a 
GB-fllled  8- 1 nch  projectile  given  the  following  conditions: 

•  Location:  Pine  Bluff  Arsenal 

•  Date/Time:  29  July,  i*.JG  local  standard  time 

•  Air  temperature:  32  ®C  (90  °F) 

•  Wind  speed:  3  m/sec 

•  Stability:  B 

2.  EXPLOSIVE  M2 3  LAND  MINE  EXAMPLE 

Determine  the  1  percent  lethality,  no  deaths,  and  distances  for  no 
effects  from  an  explosive  release  of  VX  from  an  M23  land  mine  given  the  following 
conditions: 

•  Location:  Umatilla  Army  Depot 

•  Date/Time:  15  January,  0800 

•  Temperature:  5  °C 

•  Wind  speed:  4  m/sec 

•  Cloud  cover;  10/10 

•  Cloud  height:  3000  feet 

3.  Pallet  Example 

Determine  the  1  percent  lethality  distance  after  an  explosion  within 
a  pallet  of  GB-fllled  M55  rockets  given  the  following  conditions: 

•  Location:  Lexington-Blue  Grass  Army  Depot 

•  Season:  Summer 

•  Temperature:  25  °C 

•  Wind  speed :  3  m/sec 

•  Stability:  D 

141 


•  Assume  open  terrain 

•  Assume  a  decontamination  time  of  1  hour  for  the  evaporative  source 

•  The  surface  type  should  be  labeled  "NDF",  l.e.*  "not  defined" 

•  The  area  of  the  liquid  puddle  formed  Is  549  m2  and  the  downwind 
length  Is  9  m 

•  The  evaporative  source  should  be  approximated  as  a  normal  volume 
with  SXS  -  0.83  m  and  SYS  -  7.0  m 


4. 


TON  CONTAINER  EXAMPLE 


Determine  the  distances  to  the  1.0  and  .01  parts  per  million  (ppm) 
concentrations  resulting  from  a  spill  of  HD  agent  when  both  valves  of  a  ton 
container  are  sheared  given  the  following  conditions: 

Location:  Edgewood  Arsenal 

Season:  Summer 

Temperature:  22  °C 

Wind  speed:  8  knots 

Stability:  E 

Leak  occurs  outside  on  a  gravel  surface 
Decontamination  time:  20  minutes 
Twenty  percent  of  the  agent  fill  escapes 


5. 


IGLOO  EXAMPLE 


Determine  the  1  percent  lethality  distance  resulting  from  a  fire  In 
an  Igloo  filled  with  1800  M55  rockets  containing  agent  GB  given  the  following 
conditions : 

Location:  Pine  Bluff  Arsenal 
Date/Time:  17  June,  1400  local  standard  time 
Air  temperature:  80  0 F 
Wind  speed:  5  m/sec 
Clouds:  6/10  at  30,000  feet 
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o  Run  the  model  assuming 


(a)  Wooded  terrain  (mixed  summer  forest) 

(b)  Open  terrain 


V 


f  ‘Jiff  ySi  V*  V-W  'WV.VJ  VV  v.  *v  V-.  yto  V.  ,w*vv .-v-.-  -'.  vv  *  -  -  - 


INPOT :D2PC 


|  DOMWQO  HAZARD  PR0C3UM  D2PC  I 


TYPE  ?  FOR  rWINITIlONS 

1.  YOJR  NOTICE  LEVEL:  3,2,1  OR  0  NW 
INPOT:0 


2.  LOCATION  LOC 

INPUT :PBA 

3.  SEASON  SEA 

INPUT:  SUN 

5.  MONITION  TYPE  HUN 

INPOT:8IN 

6.  AOQff  TYPE  AON 

INPOT  id 

8.  RELEASE  TYPE  REL 

INPOT:  INS 

9.  STABILITY  TYPE  SIB 

INPOT:B 

10.  WOTC6PEH)  (av'sec)  WO 

INPOT:3. 

DI-  .5  6.0  10.0 

12.  TBHPERASURE  (deg  C)  IMP 

INPOT: 32. 

ALL  OTHHI  INPUT 
ALL 


1  HUN: SIN  AGNlGB  REL: INS  V#*>  3.0 (N/S)  IW>-32.0(C)  PBA-SCH  STB:B 

Q(HG)  TS(MIN)  MS(H)  SXS(H)  SYS(M)  SZS(H) 

4.937BKJ6  8.00E-02  .OOB+OO  1.77B+03  S.00E4O0  5.00B+00  1.70B*00  B 

H/2-MNOTE  CORRECTION 

309.  (M)  IS  DISTANCE  TO  1%  LETHALITY 


412.  (H)  IS  DISTANCE  TO  NO  DEATHS 
W/O  2-HTNOTB  CORRECTION 

1535.  (M)  IS  DISTANCE  TO  NO  EFFKTS 

ALL  OTHER  INPOT 
SIP 

Stop  -  Program  terminated. 


AppfTi'li  /  F 


145 


I  DOWWDO  HAZARD  PROGRAM  D2PC 


TYPE  ?  FOR  DEFINITIONS 


1.  YOUR  NOVICE  LEVS.: 

3,2,1  CR  0  NOT 

INPUT:0' 

2.  LOCATION 

LOC 

QJPUT:UAD 

3.  SEASON 

SEA 

DffUT:WIN 

5.  MUNITION  TYPE 

MJN 

INPUT:  M2  3 

6.  AGENT  TYPE 

AON 

INPUT:VX 

8.  RELEASE  TYPE 

REL 

INPUT:  INS 

9.  STABILITY  TYPE 

STB 

INPUT:S 

io.  wnesPEEs  (ia/mc) 

WtB 

INPUT:*. 

INPUT:  YEAR(1986) 

1986 

33.  »NIH,nAY,BOUR:  (JAN,01,1200) 

INPUT: JAN, 15,0800 

3*.  CLOUD  OOVER (1/10) , CLOUD  HT(ft) 
JNPUT:10,3000 

SR  739  SS  1638  AE  2.22  STAB  D 
EDI-  .44  1.76  4.00 
ALL  OTHER  INPUT 
ALL 


1  MUN:K23  AGN:VX  RH-:INS  WND-  4.0 (M/S)  .0(0  UAD-WIN  STB:S 

Q(HG)  TS(MIN)  HIS  (M)  WL(M)  SXS(M)  SYS(M)  SZS(K) 

5.220BKJ6  8.00E-02  .OOHROO  3.20E+02  .OOE+OO  .OOE+OO  .OOE+OO  D 

BRET-  25.  SKF-2.20E-02 

W/2-fUNUTE  CORRECTION 

1116.  (H)  IS  DISTANCE  TO  14  LE7HALITY 


1610.  (M)  IS  DISTANCE  TO  NO  DEAIHS 
W/O  2-MINUTE  CORRECTION 

2991.  (M)  IS  DISTANCE  TO  NO  EFFECTS 


ALL  OTHER  INPUT 


A>D2PC 

|  DCWNWM)  HAZARD  PPO®AM  D2PC  I 
TYPE  ?  FOR  DEFINITIONS 
1.  YOUR  NOVICE  LEVEL:  3,2,1  OR  0  NCV 

inputs 


2.  LOCATION 

INPUT  :LBG 

LOC 

3.  SEASON 

INPUT:  SUM 

SEA 

5.  KJNITICN  TYPE 

INPUT  :M55 

MUN 

6.  AGENT  TYPE 

INPUT:® 

ACM 

8.  RELEASE  TYPE 

INPUT:  INS 

REL 

9.  STABILITY  TYPE 

INPUT:D 

STB 

10.  WM5SPEED  (nVsec) 

INPUT:3. 

DI-  .S'  6.0  10.0 

M© 

12.  TEMPERATURE  (deg  C) 
INPUr:25. 

ALL  OTHER  INPUT 

Kf]  2 

ALL 

TMP 

2.  LOCATION 

LX 

LEG 

3.  SEASON 

SEA 

SUM 

5.  rajNmoN  TYPE 

MUN 

MSS 

6.  AGENT  TYPE 

AGN 

GB 

8.  RELEASE  TYPE 

RH, 

INS 

9.  STABILITY  TYPE 

STB 

D 

10.  WDBSPEEE  (nv'sec) 

DI-  .5  6.0  10.0 

mb 

3.00 

12.  TEMPERATURE  (deg  C) 

AIL  OTHER  DOW 

H)I  1 

TMP 

2S.00 

INPUT:  DIOS 
0.1 

ALL  OTHER  INPUT 
ALL 


2  HJN:HS5  A®:®  R£L:INS  WM>3.0(M/S)  TMP«25.0(C)  LBG-SUM  STB:D 

Q(HG)  TS(MIN)  HIS(H)  HH(M)  SXS(H)  SYS(H)  SZS(H) 

6.941B*06  8.00E-02  .OOEHOO  4.80B+02  4.40EHO0  4.40E+00  l.SOE+OO  D 


•n 


:# 

>3 

tM 


W/2-MINOTE  CORRECTION 

11881.  (M)  IS  DISTANCE  TO  .100E+00  (MG-MD0O) 


• i 
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rTOrg.Fgrow.Tru  rv>  umhtmiv*  U*  \1  W~jwt  wrrvwvwirxriirmvYyni  w  *vf-v  "«  '*■'  “r  *; 


all  other  inpot 

sm 

ALL  OTHER  INPUT 

1*1)  13 
REL  EVP 
ALL 


2.  LOCATION 

LOC 

LBG 

3.  SEASON 

SEA 

SUM 

5.  MUNITION  TYPE 

HUN 

M55 

6.  AGENT  TYPE 

AON 

GB 

8.  RELEASE  TYPE 

REL 

EVP 

9.  STABILITY  TYPE 

STB 

D 

10.  WINDSPE2D  (m/sec) 

DI-  .5  6.0  10.0 

V*JD 

3.00 

SURFACE 

12.  TEMPERATURE  (deg  C) 

TUP 

25.00 

17.  SURFACE  CODE 

SUR 

TNK7T;NCiF 

18.  TIME  OF  EVAPORATION  (min) 

TEV 

INPOT:60. 

19.  AREA  OF  WETTED  SURFACE  (sq  III)  ARE 
INPOT:  549. 

20.  LENGTH  OF  SURFACE  DCWNWDD  (m)LEN 
INPOT:9. 

1CF  EVR»4.305EM3(mg/min-sq  m)  AREA»5.490EW)2 (sq  m)  VPR-=2.856B+00 
Q-6.487Bt07(rog>  Q'-6.487E+07 (mg)  TEV*2.745B+01(min) 

ALL  OTHER  INPOT 
SXS  0.83 
SYS  7. 

SUP 

ALL 


13  MUN:M55  AGN:GB  REL:EVP  WEE=3.0(M/S)  TMP*25.0(C)  LBG-SUM  STB:D 

Q(MG)  TS(MIN)  HTS(K)  HHL(M)  SXS(M)  SYS(M)  SZS(M) 

6.487B+07  2.74BKI1  .00EH30  4.80E+02  8.30E-01  7.00E+00  1.00E-01  D 

W/2-HINOTE  CORRECTION 

DOSAGE  IS  BEING  SOWED 

2260.  (.1)  IS  DISTANCE  TO  1*  LETHALITY 

3020.  (M)  IS  DISTANCE  TO  NO  DEATHS 
W/O  2-MINOTE  CORRECTION 

16686.  (H)  IS  DISTANCE  TO  NO  EFFECTS 

ALL  OTHER  INPUT 
STP 

Stop  -  Program  terminated. 
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type  ?  for  twhhtions 


1.  TOUR  NOVICE  LEVEL:  3,2,1  OR  0  NCV 
TNPUT:0 


2.  LOCATION  LOC 

DBVT:B<A 

3.  SEASON  SEA 

INPUTiSUH 

5.  MUNITION  TYPE  WN 

INPUT: NON 

6.  AGENT  TYPE  AGN 

INPUT:  HD 

8.  RELEASE  TYPE  REL 

OOVT:EVP 

9.  STABILITY  TYPE  STB 

INPOT:E 

10.  WUCSPEH3  (a/s «c)  NND 

DOVT:KT  8. 


KT  TO  M/SBC  .412E+01 
DI-  2.0  100.0  150.0 

7.  SPILL  OR  AIRBORNE  SOURCE  (ag>  QQQ 
OHUT:1.64E8 
SUPPACE 

12.  TWERAIURE  (deg  C)  WP 

DOUT:22. 


17.  SURFACE  COCe  SUR 

INPUT:CSA  - 

18.  TIME  OF  EVAPORATION  (ain)  TEV 
INPUT:  20. 

®A  EVR-2 .026E+02 (rog/nin-aq  a)  AREA-2. 509E+01(aq  m)  VPR-8.197B-02 
O-1.640E+O8(ng)  Q*-1.017E+05(ag)  TEV-2.000E+01(ain) 

ALL  OTHER  INPUT 
IMA  2 

DEFINE  NCI 
NCI  2 

INPUT:  CIOS 

.01,1. 

ALL  OTHER  INPUT 
ALL 


1  WIN: NON  AOJ:HD  REL: EVP  WN>4.1(M/S)  TMP-22.0(C)  Bft-SLH  STB:E 

Q(MG)  TS (KIN)  RES  (M)  HML(M)  1*0 

1.017B+05  2.000E+01  .OOOE+OO  3.60OE+O2  4.118B+00  E 


ALP  SYR  ETTA  SZR 
.80  6.00  .80  3.50 


SYS  (M)  SZS(M)  XY(H)  XZ(K)  XC(H) 
1.7E+00  1.0E-01  2.0E+01  1.2E+00  2.7E+04 


X  CP  RF 

PPM 


6.*  1. OOOE+OO 


256.*  1.000E-02 
ALL  OIHHT  INPUT 
STP 


Appendix  F 


149 


9* 


•f 


i  .m  irM  v. 


HPKfl  V  ’'OT  *1^  *-"'  i 


ADD  2PC 


I  DOWNWIND  HAZARD  PROGRAM  D2PC  I 
TOPE  ?  FCR  DtyiNITICNS 
1.  TOUR  NOVICE  LEVEL:  3,2,1  CR  0  NOV 


INPUT:0 

2.  LOCATION  I£C 

INPUTiPBA 

3 .  SEASON  SEA 

INPOT:SUK 

5.  HMITION  TYPE  HUN 

DOVT:M55 

6.  A OOT  TYPE  AGN 

INPUT:® 

B.  RELEASE  TYPE  REL 

INPUT:  I® 

9.  STABILITY  TYPE  STB 

DJPUT:W 

10.  WDBSPEEC  (nv'sec)  HMD 

INPUT:5. 

36.  WOODS  TYPE  MX) 

INPUT:  MS 


DI-  .5  6.0  10.0 

ALL  OTHER  INPUT 
NHU  1800 
ALL 


2.  LOCATION 

LOC 

PBA 

3.  SEASON 

SEA 

SUM 

5.  MUNITION  TYPE 

HUN 

MS5 

6.  AGENT  TYPE 

AGN 

GB 

8.  RELEASE  TYPE 

REL 

I® 

9.  STABILITY. TYPE 

STB 

W 

10.  WINDSPEED  {a/ sec) 

WND 

36.  WOODS  TYPE 

WOO 

MS 

D>  .5  6.0  10.0 

ALL  OTHER  INPUT 

ALL 
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1800  NUNtH55  AGNt(2  RILiIGL  WO  .SUV'S)  BO  .0(0  PBA-SOK  SIB:W 

Q<«)  IS  (KIN)  HTS(M)  OC(M)  SXS(H)  SYS(N)  SXS(H) 

2.0600+08  1.508+01  .000*00  6.706*02  .000*00  .000*00  .000*00  NS 

1.3588*07  3.000*01 
6.7908*08  6.000*01 

K/2-HINCTE  CORRECTION 

1309.  (M)  IS  DISTANCE  TO  1%  LETHALITY 


1795.  (M)  IS  DISTANCE  TO  NO  DEATHS 
Wo  3-kdjote  correction 

39065.  (M)  IS  DISTANCE  TO  NO  BTBCIS 


ALL 

OTHER  INPOT 

SIB 

S 

ALL 

2. 

LOCATION 

LX 

PBA 

3. 

SEASON 

SEA 

SDK 

5. 

NtOTTCN  TYPE 

KIN 

M55 

6. 

Aonr  type 

KM 

G8 

8. 

RELEASE  TYPE 

R2L 

IGL 

9. 

STABILITY  TYPE 

SIB 

S 

10. 

NH06PEK)  (Vmc) 

WO 

JMOTi  YEAR  (1986) 

1986 

33.  MORH.DAX.KXJR:  (JAN, 01, 1200) 
MOTi-KIN,  17,1400 

34.  CLOUD  OOVHKl/lO)  .CLOUD  BT(ft) 
DOVTi6, 30000 

SR  455  SS  1920  AE  63.40  STAB  C 
DI-  .5  6.0  10.0 

ALL  OSH*  INPOT 
ALL 


1800  HJNiH55  ACNp®  RfL:Id  WO-  5.0  (M/S)  TUP*  .0(C)  PBA-SGM  SIBiS 

Q(NG)  TS(MIN)  fflS(M)  Bt,(K)  SXS(K)  SYS(K)  S1S(H) 

2.0600*08  1.500*01  ,000*00  1.220*03  .  000*00  .000*00  .000*00  C 

1.3580*07  2.008*01 
6.7900*06  6.000*01 

K/2-mwnE  CORRECTION 

1450.  (H)  IS  DISTANCE  TO  1%  LETHALITY 


1895.  (H)  IS  DISTANCE  TO  NO  DEATHS 
W/0  2-MNOTE  CORRECTION 

8962.  (M)  IS  DISTANCE  TO  NO  EFFECTS 


ALL  OTHBt  INPOT 
SIR 
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